problem mit txt datei, aber ganz einfach zu lösen

[keineahnung1]

hi ich will eientlich nur aus ner txt datei was lesen

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
 tf: TextFile;
begin
 AssignFile(tf, 'c:/neu.txt');
    Reset(tf);
    while ??? <> '' do begin
    showmessage ('hi');
    ReadLn(tf);
    listbox2.Items.Add(tf);
    end;
    CloseFile(tf);
end;

aber so gehts nich, was mach cih da alles falsch?!?!??

edit : tags vergessen

[keineahnung1]

also ich will im endeffekt jede zeile in die listbox reinschreiben, kann doch nich so schwer sein :oops:

[Sharky]

Zitat:

Zitat von keineahnung1

... kann doch nich so schwer sein :oops:

Nö, ist es auch nicht ;-)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ListBox1.Items.LoadFromFile('c:/neu.txt');
end;

[lume96]

Moin,

eher ein

Delphi-Quellcode:

    while not EOF(tf) do begin // EOF = End of File

Tschüss,
Lutz