Zitat von
yankee:
Schreib mal, ob's tut...
Das sollte ja eigentlich net gehen, weil ReadLn keine Funktion ist
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Datei: Textfile;
Temp: String;
begin
AssignFile(Datei,'c:\datei.txt');
Reset(Datei);
while (not Eof(Datei)) do
begin
Readln(Datei, Temp);
ListBox1.Items.Add(Temp);
end;
Closefile(Datei);
end;