Log-Datei realisieren

[shmia]

Zitat von Infect:

Ich habe mir nun anhand von himitsus Beispielen noch etwas selbst zusammengebaut.

Ich verstehe nicht, weshalb du eine Bastel-Lösung gegenüber einer Profilösung bevorzugst ?

Delphi-Quellcode:

var
  logstream: TExclusiveFileStream;
  s : string;
begin
  logstream := TExclusiveFileStream.Create('C:\Test.log', 10000);
  try
    logstream.SeektoEnd;  // Ans Dateiende, wir wollen anhängen
    if (ParamCount > 0) then 
      s := 'Programm ' + ParamStr(1) 
    else 
      s := 'Programm 1';     
    s := s + #13#10; // Zeilenvorschub
    logstream.WriteBuffer(s[1], length(s));  // Daten schreiben
  finally
    logstream.Free;
  end;
end;