1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure LeereLog(const aLogFile:String);
var tf:TextFile;
begin
  if FileExists(aLogFile) then
  begin
    AssignFile(tf, aLogFile);
    Rewrite(tf);
    CloseFile(tf);
  end; // if
end; // LeereLog					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure LOGschreiben;
var
  LogFile: tLogFile;
  IniDat : TIniFile;
  Verzeichnis, Satz : String;
begin
  //ini lesen
  IniDat := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'source.ini');
  Satz := 'source';

  Verzeichnis := IniDat.ReadString('source', 'quelle', ' '); // lies aus ini

  // Nun zur Logdatei
  LogFile := tLogFile.Create (Verzeichnis);   // wo rein schreiben

  try
    LogFile.WithDebug := FindCmdLineSwitch ('DebugLog', ['/'], True);
    LogFile.WriteHint ('Program start' + #13 + #10);
    LogFile.BeginSection;

    LogFile.WriteError( #13 + #10 +'Folgende Fehler sind aufgetreten:');
    LogFile.WriteError(ERROR_INI + #13 + #10 + #13 + #10);

    LogFile.WriteError(ERROR_Konv1 + #13 + #10 + #13 + #10);

    LogFile.WriteError(ERROR_Konv2 + #13 + #10 + #13 + #10);

    LogFile.EndSection;
    LogFile.WriteHint ('Program end');
     finally
    LogFile.Free;
    end;

end;