Datei beim Programmstart erstellen lassen

[jim_raynor]

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 dannList:=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.