проверить последний символ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
проверить последний символ

Страница 1 из 2

Опции темы

Поиск в этой теме

Опции просмотра

проверить последний символ

05.12.2009, 21:13

SultanOFF

Участник форума

Регистрация: 04.06.2009

Сообщений: 176

С нами: 8913664

Репутация: 0

проверить последний символ

Здравствуйте. Вопрос возможно туп до идиотизма но все же. В едите есть текст, и нужно проверить стоит ли на самом конце знак "\" и если его нету то вставить иначе сделать тото.
Ума не приложу как это сделать, помогите пожалуйста

Delphi 2009

𝕏 Twitter Reddit Telegram Копировать ссылку

05.12.2009, 21:24

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

С нами: 9626394

Репутация: 357

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
Begin
s := form1.Edit1.Text;
If not (pos('\',s) = length(s)) then s:= s+'\';
form1.Edit2.Text := s;
end;

Последний раз редактировалось НTL; 05.12.2009 в 21:27..

05.12.2009, 21:28

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

С нами: 8947056

Репутация: 229

Цитата:

Сообщение от НTL

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
Begin
s := form1.Edit1.Text;
If not (pos('\',s) = length(s)) then s:= s+'\';
form1.Edit2.Text := s;
end;

идиотизм

ну вот мой код:

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
Begin
s := form1.Edit1.Text;
If (s[length(s)]<>'\') then s:= s+'\';
form1.Edit1.Text := s;
end;

to slesh, ^_^

05.12.2009, 21:29

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

s := edit1.text;
if (s[length[s]] <> '\') then edit1.text := edit1.text + '\';

05.12.2009, 21:32

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

С нами: 9626394

Репутация: 357

Цитата:

Сообщение от wolmer

идиотизм

ну вот мой код:

Каждый исходный код уникален (с) Xakep

Последний раз редактировалось НTL; 05.12.2009 в 21:34..

05.12.2009, 21:40

SultanOFF

Участник форума

Регистрация: 04.06.2009

Сообщений: 176

С нами: 8913664

Репутация: 0

чуточку посидев сам в принципе придумал решение:

Код:

 if copy(edit1.Text, length(edit1.Text), 1)='\' then
 showmessage('okei')
 else
 edit1.Text:=edit1.Text+'\';

однако думаю лучше использовать код slesh. Всем большое спасибо

07.12.2009, 10:40

~~DeaD_MoroZ~~

Banned

Регистрация: 03.11.2009

Сообщений: 112

С нами: 8694756

Репутация: 17

s[length[s]] - вот эта ф-я получает последний символ в строке

07.12.2009, 11:27

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

2 НTL

Цитата:

Каждый исходный код уникален (с) Xakep

Но не каждый исходный код имеет право на жизнь (С) SLESH

Твой код завалится на строке типа C:\dir\ подумай над этим )

08.12.2009, 17:39

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

С нами: 9626394

Репутация: 357

Цитата:

Сообщение от slesh

2 НTL

Но не каждый исходный код имеет право на жизнь (С) SLESH

Твой код завалится на строке типа C:\dir\ подумай над этим )

Да ты прав

#10

11.12.2009, 06:03

M_script_

Постоянный

Регистрация: 29.10.2008

Сообщений: 306

С нами: 9227388

Репутация: 180

Цитата:

Сообщение от slesh

s := edit1.text;
if (s[length[s]] <> '\') then edit1.text := edit1.text + '\';

А нельзя сразу написать
if (edit1.text[length[edit1.text]] <> '\') then edit1.text := edit1.text + '\';
?

Страница 1 из 2

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ПРОВЕРКА почти всех уязвимостей и багов!	_GaLs_	Избранное	16	28.09.2016 16:15
брут WPA общими силами	ZENON	Беспроводные технологии/Wi-Fi/Wardriving	114	14.06.2010 23:21
On-line проверки(вирусы, фаерволы)	Elekt	Защита ОС: вирусы, антивирусы, файрволы.	28	18.01.2010 16:15

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход