Zeilenanzahl bei name.log Datei begrenzen

[Luckie]

Delphi-Quellcode:

procedure TLogFile.AddLine(Line: string);
var
   F: TextFile;
  Zeile: String;
begin
   FileMode := fmOpenReadWrite;
   AssignFile(F, FFileName);
  try
      Append(F);
  except
     Rewrite(F);
  end;
  Zeile := FormatDateTime('c.zzz - ', Now)+Line;
  WriteLn(F, Zeile);
  CloseFile(F);
end;

Daraus sollst du machen:

Delphi-Quellcode:

procedure TLogFile.AddLine(Line: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  ...;
  ...;
  ...;
end;

Die anderen programme, die die Klasse benutzen bekommen doch gar nicht mit, dass sich innerhalb der Methode was am Quellcode geändert hat.