Listbox

[Benedikt]

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;