Lazarus/Delphi (Pascal) - Schreiben in TXT-Datei ohne das nächste Mal zu überschreiben

Question

Ich benutze Lazarus und ich wollte in eine TXT-Datei speichern, Informationen, wenn das Programm geschlossen ist. Aber jedes Mal, wenn ich das Programm erneut öffne, überschreibt es das, was vorher in der TXT-Datei vorhanden war. Es wäre in Ordnung, sowohl in die nächste Zeile zu schreiben, als auch jedes Mal eine andere TXT-Datei zu erstellen. Dies ist, was ich habe:

var 
    ... 
    s: TStringList; 

    s:= TStringList.Create; 
    s.Add(datetostr(now)); 
    s.SaveToFile(datetostr(now)+'.txt'); 
    s.Free; 

aber mir einen Fehler i'ts geben

Answer 1

Alles, was Sie tun müssen, ist Ihre Datei im Append-Modus zu öffnen, und fügen Sie dann Ihren Text. Es werden die neuen Daten am Ende der Datei setzen:

AssignFile(tfOut, C_FNAME); 

    try 
    // Open for append, write and close. 
    append(tfOut); 

    writeln(tfOut, 'New data for text file'); 
    writeln(tfOut, 'New informtion should be at the end of the file.'); 

    CloseFile(tfOut); 

    except 
    on E: EInOutError do 
    writeln('File error. Elaboration: ', E.Message); 
    end; 

Answer 2

Eine andere Methode TStringList ist:

s: TStringList;

s: = TStringList.Create;

s.loadfromfile ('myfile.name');

s.Add (Datumtostr (jetzt));

(oder s.text: = + s.text lineending + DateToStr (jetzt))

s.SaveToFile ('myfile.name');

s.Frei;