lazarus/delphi (pascal) - écrire au fichier txt sans écraser la prochaine fois

Question

J'utilise Lazarus et je voulais enregistrer dans un fichier txt, des informations lorsque le programme est fermé. Mais chaque fois que je rouvre le programme, il écrase ce qu'il y avait avant dans le fichier txt. Il serait correct à la fois d'écrire sur la ligne suivante ou même de créer un fichier txt différent à chaque fois. Voilà ce que j'ai:

var 
    ... 
    s: TStringList; 

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

mais i'ts me donner une erreur

Answer 1

Tout ce que vous devez faire est d'ouvrir votre fichier en mode append, puis ajoutez votre texte. Il mettra les nouvelles données à la fin du fichier:

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

Une autre méthode utilisant TStringList est:

s: TStringList;

s: = TStringList.Create;

s.loadfromfile ('myfile.name');

s.Ajouter (datetostr (maintenant));

(ou s.text: = s.text + + lineEnding DateToStr (maintenant))

s.SaveToFile ('myfile.name');

s.Free;