Hallo habe ein Problem mit dem Speichern einer Listbox in eine Textdatei,
mit diesem Code speicher ich eine Listbox in einer Datei. Funktioniert ohne Probleme.
Delphi-Quellcode:
SaveDialog1.Filename := SaveDialog1.Filename + '.txt';
AssignFile(F, SaveDialog1.Filename);
Rewrite(F);
WriteLn(F, Listbox.items.text);
CloseFile(F);
Nur dann sind in dieser Datei am Ende 2 leere Zeilen, obwohl in der Listbox definitiv keine leere Zeile ist.
Mir fällt nicht mehr ein, als die fehlerhafte Datei beim benutzen einzulesen und dann jedes mal temporär die letzten 2 Zeilen zu löschen. Die Datei ist jedoch für den Benutzer frei zugängig und wenn er dann meint die letzten beiden Leerzeilen löschen müssen ist das weniger gut. Im schlimmsten Fall kann ich mit der Lösung leben, wenn halt die letzten 2 Zeilen fehler dann bekommt der Benutzer das nicht mit einer Fehlermeldung mit, sondern nur mit einer nicht abgeschlossenen Funktion (letzten 2 Schritte fehlen).
Direkt beim Speichern, wieder einlesen, löschen und wieder speichern funktioniert nicht (bereits getestet).
Viele Grüße