Forum: Programmieren allgemein
by pertzschc,
20. Jul 2009
Schau mal selber, Du hast uns hier den Konstruktor von Deinem TLogFile gepostet. da kannst Du doch eine LogSize mitgeben, vielleicht sind das ja Deine "1000" Zeilen?
Gruß, Christoph
Forum: Programmieren allgemein
by pertzschc,
20. Jul 2009
procedure TLogFile.AddLine(Line: string);
var
LogFileList : TStringList;
Zeile: String;
begin
LogFileList := TStringList.Create;
try
LogFileList.LoadFromFile(FFileName);
// hier eine while-schleife, solange LogFileList.Count > 999
// innerhalb der schleife immer LogFileList.Delete(0); damit wird oberstes zeile gelöscht.
Forum: Programmieren allgemein
by pertzschc,
20. Jul 2009
Du liest nicht so richtig, was wir Dir schreiben - oder?
Gruß,
Christoph
Forum: Programmieren allgemein
by pertzschc,
17. Jul 2009
Wenn es eine Zeilenbasierte Datei mit Stringinhalten ist, könntest Du StringList verwenden.
Einlesen, Count prüfen, jeweils erste Zeilen löschen bis Count <=1000, dann wieder in die Datei speichern.
Gruß,
Christoph