Вести в edit1 из *.txt

[foxes]

Люди помогите!
у мне есть *.txt там фамилия имя и возрос на пример (Иванов.Вася.20)
как разделить без точек и вести в edit1 edit2 edit3

[artemavd]

Че-то изврат какой-то. В том файле только одна эта строчка?

[Sparkman]

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

Люди помогите!
у мне есть *.txt там фамилия имя и возрос на пример (Иванов.Вася.20)
как разделить без точек и вести в edit1 edit2 edit3

var s:string;
begin
s:='Иванов.Вася.20'; //строка из файла
edit1.Text:= copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
edit2.Text:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
edit3.Text:=s;
end;

[foxes]

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

var s:string;
begin
s:='Иванов.Вася.20'; //строка из файла
edit1.Text:= copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
edit2.Text:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
edit3.Text:=s;
end;

Большое вам спасибо за ответ, ну как еще сделать, чтобы при каждом нажатии кнопки шёл по строчкам

[Sparkman]

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

Большое вам спасибо за ответ, ну как еще сделать, чтобы при каждом нажатии кнопки шёл по строчкам

тут уже обычная работа с текстовыми файлами:

var
  Form1: TForm1;
  f:TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
     if Length(s)>0 then
     begin
          readln(f,s);
          edit1.Text:= copy(s,1,pos('.',s)-1);
          delete(s,1,pos('.',s));
          if pos('.',s)>0 then
          begin
               edit2.Text:=copy(s,1,pos('.',s)-1);
               delete(s,1,pos('.',s));
               edit3.Text:=s;
          else edit1.Text:='';
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        if OpenDialog1.Execute then
        AssignFile(f,OpenDialog1.FileName);
        reset(f);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
        closefile(f);
end;

при нажатии на вторую кнопку - открываем текстовый файл, при нажатии на первую кнопку - читаем из файла записи, при нажатии на третью кнопку - закрываем текстовый файл.

[psycho-coder]

Елки...
С TStringList меньше гемора, и все наглядней.

[foxes]

Sparkman

Большое спасибо