Dateieinträge in eine Listbox übertragen

[Sharky]

Aus der Delphi-Hilfe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Öffnen-Dialogfeld anzeigen }
  begin
    AssignFile(F, OpenDialog1.FileName); { Datei in Dialogfeld ausgewählt }
    Reset(F);
    Readln(F, S);                        { Erste Zeile der Datei lesen }
    Label1.Caption := S;                     { String in Eingabefeld einfügen }
    CloseFile(F);
  end;
end;

[EDIT] Mist, da war doch wieder einer schneller[/edit]