Zitat von
Wolverine:
Hi jim_raynor.
Code ist da wie man sieht
Das ist ja Betrug
Nachträglich bearbeitet ! Du Bösewicht.
Also. Ich würde für dein ganzes Problem eine Stringliste nutzen (macht die Sache wesentlich einfacher.
Du machst dir ne Variable TStringList (genau wie jetzt dein F).
In OnCreate erstellst du die dann
List:=TStringList.Create;
und mit
Delphi-Quellcode:
if FileExists('Daten.txt') then
List.LoadFromFile('Daten.txt')
else
List.Add(Ueberschrift);
kannst du dann die Datei laden.
Bei deinem ButtonClick musst du dann nur List.Add(xxx) machen und bei OnDestroy könntest du dann mit List.SaveToFile('Daten.txt') die Datei wieder abspeichern.
Zu deinem Code:
Leider nutze ich diese Funktionen (AssignFile, Reset und so) nicht selber. Deshalb kann ich nur raten. ich denke mal du solltest bei OnCreate das CloseFile machen und anschliessend mit Append (Datensätze hinzufügen) öffnen. Bei ButtonClick machst dann nur noch WriteLn ohne CloseFile und Rewrite.
Aber ich würde dir die Variante mit der StringListe empfehlen. Weiss garnicht warum das noch niemand gemacht hat.