Daten schrittweise in Textdatei speichern

[FBrust]

Hallo,

ich verwende üblicherweise die folgende Procedure in einer separaten Unit:

Delphi-Quellcode:

procedure WriteLog(strText: string);
var tfLog: TextFile;
    strLogPath: string;
    strLogFile: string;
begin
      strLogPath := GetSpecialFolderLocation($23) + 'meinprogramm\Logs';
      if not DirectoryExists(strLogPath) then
        ForceDirectories(strLogPath);
      strLogFile := strLogPath + '\LOG-' + FormatDateTime('YYYY-MM-DD', Now()) + '.TXT';
      AssignFile(tfLog, strLogFile);
      if FileExists(strLogFile) then
        Reset(tfLog)
      else
        Rewrite(tfLog);
      Append(tfLog);
      WriteLn(tfLog, FormatDateTime('HH:MM:SS', Now()) + ' - ' + strText);
      CloseFile(tfLog);
end;

Dort, wo ich etwas protokollieren will, reicht dann ein einfaches

WriteLog('Das ist wichtig'); , um einen Protokolleintrag inklusive aktueller Zeit zu erstellen.

Man könnte das ganze noch in ein try..except oder try...finally packen, hat aber bisher ganz gut funktioniert.

Gruß
Frank