aus einer textfile wieder in die edits einlesen!

[Thorben_K]

Delphi-Quellcode:

procedure TForm1.LoadClick(Sender: TObject); 
var 
List: TStrings; 
i:integer; 
begin 
List := TStringList.Create; 
try 
  List.LoadFromFile('C:\Datei.txt'); 
  for i := 1 to 34 do 
  begin 
  TEdit(FindComponent( 'Edit' + IntToStr( i))).Text := List[i]; 
  end; 
  finally 
  List.Free; 
end; 
end;