Ajouter du texte à la fin d'un fichier

Function AppendOrWriteTextToFile(filename: TFilename; WriteText: String): Boolean;
var
f: Textfile;
begin
try
AssignFile(f,filename);
If FileExists(filename) = false then
begin
Rewrite(f);
end
else
begin
Reset(f);
Append(f);
end;
Writeln(f,WriteText);
CloseFile(f);
result := true;
except
result := false;
end;

end;

// Exemple
procedure TForm1.Button1Click(Sender: TObject);
var
dir: String;
log: String;
begin
dir := ExtractFilePath(Application.Exename);
log := 'Last Programm Termination: '+DateTimeToStr(now);
AppendOrWriteTextToFile(dir+'logfile.txt', log)
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2002
VisualisationVu 1284 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur