Цитата:
Сообщение от Kailon
Решение прям в лоб
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Delimiter := '/';
SL.DelimitedText := 'User1/15/21.06.12/568';
Edit1.Text := SL.Strings[0];
Edit2.Text := SL.Strings[1];
Edit3.Text := SL.Strings[2];
Edit4.Text := SL.Strings[3];
SL.Free;
end;
|
Спасибо работает только как подключить
Memo1.Lines[0] то есть первую строку.
Пробую SL.DelimitedText := memo1.Lines[0];
но не работает.