Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   проверить последний символ (https://forum.antichat.xyz/showthread.php?t=161357)

SultanOFF 05.12.2009 21:13
проверить последний символ
 
Здравствуйте. Вопрос возможно туп до идиотизма но все же. В едите есть текст, и нужно проверить стоит ли на самом конце знак "\" и если его нету то вставить иначе сделать тото.
Ума не приложу как это сделать, помогите пожалуйста :) Delphi 2009

НTL 05.12.2009 21:24
Код:
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;

wolmer 05.12.2009 21:28
Цитата:
Сообщение от Н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, ^_^

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

НTL 05.12.2009 21:32
Цитата:
Сообщение от wolmer
идиотизм

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

SultanOFF 05.12.2009 21:40
чуточку посидев сам в принципе придумал решение:
Код:
if copy(edit1.Text, length(edit1.Text), 1)='\' then
 showmessage('okei')
 else
 edit1.Text:=edit1.Text+'\';
однако думаю лучше использовать код slesh. Всем большое спасибо :)

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

slesh 07.12.2009 11:27
2 НTL
Цитата:
Каждый исходный код уникален (с) Xakep
Но не каждый исходный код имеет право на жизнь (С) SLESH

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

НTL 08.12.2009 17:39
Цитата:
Сообщение от slesh
2 НTL


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

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

M_script_ 11.12.2009 06:03
Цитата:
Сообщение от slesh
s := edit1.text;
if (s[length[s]] <> '\') then edit1.text := edit1.text + '\';
А нельзя сразу написать
if (edit1.text[length[edit1.text]] <> '\') then edit1.text := edit1.text + '\';
?


Время: 06:38
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице