Решение прям в лоб
Код:
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;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|