Zeilenanzahl bei name.log Datei begrenzen

[holliesoft]

Hi,

wenn die Logdatei noch nicht existiert, dann kann sie auch nicht geladen werden. Daher:

Delphi-Quellcode:

procedure TLogFile.AddLine(Line: string);
var
  LogFileList : TStringList;
  Zeile: String;
begin
  LogFileList := TStringList.Create;
  try
    If FileExists(FFileName) then 
      LogFileList.LoadFromFile(FFileName);
    while LogFileList.Count > (MaxLines-1) do
        LogFileList.Delete(0);
    LogFileList.Add(FormatDateTime('c.zzz - ', Now)+Line);
    LogFileList.SaveToFile(FFileName);
  finally
    LogFileList.Free;
  end;
end;

Gruß
Patrick