[Taras2020]

На форме имеются:

Код:

Edit1.Text
Edit2.Text 
Edit3.Text
Edit4.Tex

В Memo1 первая строка: User1/15/21.06.12/568

При нажатии на кнопку переносим значения с Memo.Lines[0]. То есть с первой строки Memo в Edit:

Код:

Edit1.Text = User1
Edit2.Text = 15
Edit3.Text = 21.06.12
Edit4.Text = 568

Формат строки постоянно один и разделитель между значениями знак /

Благодарен за любые подсказки.

[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;

[Taras2020]

Сообщение от 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];
но не работает.

[Kailon]

Код:

SL.DelimitedText := Memo1.Lines[0];

У меня работает.

[Taras2020]

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

Код:

SL.DelimitedText := Memo1.Lines[0];

У меня работает.

Спасибо огромное!