öffnen von txt file

[Klaus01]

Hat die Datei den mehr als eine Zeile?

Delphi-Quellcode:

var
  Form1: TForm1;
   dateiname, dateiname2 :string;
   betrag, betrag2: real;
   zeile,zeile1, zeile2, zeile3, zeile4, z5, betrag3:string;
   datei,datei2 : textfile;

procedure TForm1.FormCreate(Sender: TObject);

begin
assignfile (datei, dateiname);
reset (datei);
readln (datei, zeile1);
closefile (datei);
edit1.text := zeile1;


dateiname2 := zeile1 ;
assignfile (datei2, dateiname2);
reset (datei2);
While not eof(datei2) do
  begin
    readln (datei2, zeile);
    // mach etwas mit der zeile
  end;
closefile (datei2);

edit2.Text := zeile2;


end;

Grüße
Klaus