Dateieinträge in eine Listbox übertragen

[Rapthor]

Wie kann ich aus einer vorhandenen Datei, die zeilenweise aufgebaut ist, die Einträge in eine Listbox übertragen lassen?

[sakura]

Am einfachsten mit

Delphi-Quellcode:

ListBox1.Items.LoadFromFile('ItemsFromHell.txt');

...:cat:...

[Christian Seehase]

Moin Rapthor,

schau Dir mal die Methoden von TListBox.Items an.

[sakura]

Da gibt es nämlich LoadFromFile :mrgreen:

...:cat:...

[Rapthor]

Ah gut,
sowas ähnliches jetzt nochmal. Wie krieg ich die erste Zeile einer Datei als Label-Caption hin ?

[Tpercon]

Entweder du nimmst dir die erste Zeile (.Strings[0]) aus der TStringList bzw. ListBox oder öffnest die Datei mit Assfingfile:

Delphi-Quellcode:

  if FileExists(FileName) then  begin
    AssignFile(f, FileName); 
    Reset(f);
    Readln(f, s);   
    Label1.Caption := s;
    CloseFile(f);
  end;

[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]