Logfunktion mit Datum und Uhrzeit

[Duffy]

Hallo alle zusammen,
hier ist mal eine einfache Logfunktion.

Delphi-Quellcode:

function StringMsgToFile(FileName: TFileName;
                         Msg: string;
                         WithDateTime: Boolean = True): Boolean;
const
  CR = #13;
  LF = #10;
  CRLF = CR + LF;
var
  FileStream: TFileStream;
begin
  Result := False;
  try
    // Versuch die existierende Datei zu öffnen
    FileStream := TFileStream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
  except
    // Die Datei existiert nicht, eine neue öffnen
    FileStream := TFileStream.Create(FileName, fmCreate or fmShareExclusive);
  end;

  // an das Ende der Datei gehen (Append Modus)
  FileStream.Seek(0, soFromEnd);

  // CRLF an die Message anhängen
  Msg := MSg + CRLF;

  // Datum, Uhrzeit falls nötig einfügen
  if WithDateTime then
  begin
    Msg := FormatDateTime('ddd d. mmm. yyyy, hh:mm:ss: ', Now) + Msg;
  end;

  // Message schreiben
  try
    FileStream.Write(Pointer(Msg)^, Length(Msg));
  finally
    // FileStream freigeben
    FileStream.Free;
  end;

  // und Status zurückgeben
  Result := True;
end;

bye

[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]