ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
проверить последний символ |
05.12.2009, 21:13
|
|
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
Провел на форуме:
840493
Репутация:
0
|
|
проверить последний символ
Здравствуйте. Вопрос возможно туп до идиотизма но все же. В едите есть текст, и нужно проверить стоит ли на самом конце знак "\" и если его нету то вставить иначе сделать тото.
Ума не приложу как это сделать, помогите пожалуйста  Delphi 2009 |
|
|
05.12.2009, 21:24
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
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
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
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
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
s := edit1.text;
if (s[length[s]] <> '\') then edit1.text := edit1.text + '\';
|
|
|
|
05.12.2009, 21:32
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от wolmer
идиотизм
ну вот мой код:
Каждый исходный код уникален (с) Xakep
Последний раз редактировалось НTL; 05.12.2009 в 21:34..
|
|
|
|
05.12.2009, 21:40
|
|
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
Провел на форуме:
840493
Репутация:
0
|
|
чуточку посидев сам в принципе придумал решение:
Код:
if copy(edit1.Text, length(edit1.Text), 1)='\' then
showmessage('okei')
else
edit1.Text:=edit1.Text+'\';
однако думаю лучше использовать код slesh. Всем большое спасибо |
|
|
|
07.12.2009, 10:40
|
|
Banned
Регистрация: 03.11.2009
Сообщений: 112
Провел на форуме:
98006
Репутация:
17
|
|
s[length[s]] - вот эта ф-я получает последний символ в строке
|
|
|
|
07.12.2009, 11:27
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 НTL
Каждый исходный код уникален (с) Xakep
Но не каждый исходный код имеет право на жизнь (С) SLESH
Твой код завалится на строке типа C:\dir\ подумай над этим ) |
|
|
|
08.12.2009, 17:39
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от slesh
2 НTL
Но не каждый исходный код имеет право на жизнь (С) SLESH
Твой код завалится на строке типа C:\dir\ подумай над этим )
Да ты прав 
|
|
|
|
11.12.2009, 06:03
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
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 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
