Hallo Leute,
Ich habe mal wieder ein Problem, aber erstmal zu meinem Programm bzw. den Teilen, die bei meinem Problem eine Rolle spielen.
Und zwar habe ich:
Eine TListBox
Eine TStringList
Eine .txt Datei
Beim öffnen des Programms sollen alle Inhalte der Textdatei erst in eine TStringlist und von da aus in die ListBox kopiert werden.
Soweit klappt das auch, in der ListBox ist ein Eintrag.
Beim Beenden des Programms sollen alle Einträge der ListBox wieder in die Datei geschrieben werden (überschreiben).
Ich weiß nicht, woran das liegt allerdings habe ich nach dem 3. Programmstart auf einmal 2x den Eintrag in der Box, ohne etwas zu tun.
Delphi-Quellcode:
procedure Tmainwindow.FormCreate(Sender: TObject);
begin
playliste:=TStringList.Create;
playliste.LoadFromFile('videoliste.txt');
playlist.Items.AddStrings(playliste);
end;
procedure Tmainwindow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
playliste.AddStrings(playlist.Items);
deletefile('videoliste.txt'); // Eingebaut, damit die Datei auch sicher überschrieben wird.
playliste.SaveToFile('videoliste.txt');
end;
Die Datei wird beim schließen auch gelöscht und neu erstellt, aber trotzdem werden 2 Einträge gespeichert!