Txt-Datei Zeilenweise auslesen funktioniert nicht

[neus]

Hallo,

ich möchte eine Datei Zeilenweise auslesen und die Ergebnisse in eine Listbox schreiben:
Mach ich das ohne die Schleife gehts (aber halt nur für den ersten Eintrag).
Da ich neu in Delphi bin und gern an Beispielen lerne wäre ich für eine Korrektur dankbar.

Danke !!!

Delphi-Quellcode:

var
  Form1: TForm1;
  Datei: TextFile;
  namedat: String;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
         AssignFile(Datei,'c:\text.txt');
         Reset(Datei);
         while not eof (Datei) do
         begin
                ReadLn(Datei,namedat);
                ListBox1.Items.Add(namedat + ' nicht erreichbar');
                CloseFile(Datei);
         end;
end;

[mkinzler]

Nimm mal das CloseFile aus der Schleife raus.

[neus]

Zitat:

Zitat von mkinzler

Nimm mal das CloseFile aus der Schleife raus.

Prima, so doof kann nur ich sein :wall:

Danlke! :thumb:

[inherited]

Nimm doch gleich ListBox1.Items.LoadFromFile...