Zeilenanzahl bei name.log Datei begrenzen

[Aphton]

Ich bin mal so großzügig ...

Delphi-Quellcode:

type
  TLogFile = class
  private
  // ...
    FMaxLines: Cardinal; // diese variable dann irgendwo im Code setzen - bsp 1000 ... in deinem Fall ...
  public
  // ...
    property MaxLines: Cardinal Read FMaxLines Write FMaxLines;
  end;


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