Promblem bei Listbox speichern

[Hans33]

also jetzt hats irgendwie funktioniert nur es speichert immer nur das was ich bis zur programmschlißung geschrieben hab. Also wenn ich das Programm neustarte und etwas eingebe komm in dem Textdokument nur das Eingegebene von diesem mal.

[mkinzler]

Ist ja auch klar. Du musst den Inhalt am Anfang laden und dann die weiteren Einträge anhängen

[Hans33]

also noch hinzufügen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
ListBox1.Items.LoadFromFile('Lateinliste.txt'); 
end;

[mkinzler]

Ähem. Denk an den Pfad

[Hans33]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
ListBox1.Items.LoadFromFile(Pfad); 
end;

oder??

[mkinzler]

Pfad natürlich dementsprechend Setzen

[Hans33]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Pfad:string;
begin
ListBox1.Items.LoadFromFile(Pfad);   Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt';
end;

[Matze]

Och denke doch ein bisschen nach.

Natürlich musst du zuerst den Pfad zuweisen, bevor du darauf zugreifst.

[mkinzler]

Dann aber andersrum:

Delphi-Quellcode:

Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt'; 
ListBox1.Items.LoadFromFile(Pfad);

oder ohne extra Variable:
ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt');

[Hans33]

Hatt geklappt.
Danke für die Geduld und Hilfe