Delphi - Считать txt файл

[romantik1993]

Есть файл текстовый, в нем гдето 10 строк,

нужно сделать так чтобы пепвая строка считалась в edit1.text , вторая строка в edit2.text и так далее до 10 едита

как это сделать

[Stilet]

Ну например закинуть все Эдиты в Panel. Дальше так:

With TStringList.Create do begin
 LoadFromFile('Файлик');
 i:=0; while (i<Panel.ControlCount) and (i<Count) do  begin
  TEdit(Panel.Controls[i]).Text:=Strings[i];
  inc(i);
 end; 
 free;
end;

Но лучше использовать StringGrid более предназначенный для такого чем набор Эдитов.

[romantik1993]

а как нибудь пошагово можно, там может быть одни едиты, а могут быть комбобоксы вперемешку с едитами

я вот так пробовал но ошибка

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var f:TextFile;
begin
AssignFile(f,'1.txt');
 Reset(f);
 ReadLn(f,Edit3.text);
 ReadLn(f,Edit4.text);
 ReadLn(f,Edit5.text);
 ReadLn(f,Edit6.text);
 ReadLn(f,Combobox1.text);
 ReadLn(f,Combobox2.text);
 ReadLn(f,Combobox3.text);
 ReadLn(f,Combobox4.text);
 ReadLn(f,Edit7.text);
 ReadLn(f,Edit8.text);
 ReadLn(f,Edit9.text);
 Close(f); //закрываем файл
end;

вот ошибка

[Stilet]

как нибудь пошагово можно

With TStringList.Create do begin
 LoadFromFile('Файлик');
 i:=0; while (i<Count) do  begin
  ed:=Panel.FindComponent('Edit'+IntToStr(i));
  if ed<>nil then ed.Text:=Strings[i];
  inc(i);
 end; 
 free;
end;

Напоминаю, что Stringgrid - наше все.

ReadLn(f,Edit3.text);

Text это свойство а не переменная. Read с таким не справится.

[Serge_Bliznykov]

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

Text это свойство а не переменная. Read с таким не справится.

позволю себе чуть пояснить последнее утверждение для TC...

romantik1993
смотрите.
вот так нельзя:

ReadLn(f,Edit3.text);

(ну Вы сами это уже увидели).

а вот так можно:

Var 
  f:TextFile;
  s:string;
begin
 AssignFile(f,'1.txt');
 Reset(f);
 ReadLn(f,s);
 Edit3.text := s;
 ReadLn(f,s);
 Edit4.text := s;
 ReadLn(f,s);
 Edit5.text := s;
 и т.д.

но, конечно, пример кода (с) Stilet с TStringList и FindComponent - НАМНОГО удобнее, проще и наглядней.