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 !!!

zusammenfalten · markieren

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;

Txt-Datei Zeilenweise auslesen funktioniert nicht

Txt-Datei Zeilenweise auslesen funktioniert nicht

Forumregeln