maximale Einträge in einer Text-Datei mit TFileStream

[Helmi]

Hallo,

ich brauch mal Hilfe - ich steh auf dem Schlauch

Also ich hab eine Komponente geschrieben, die Logfiles schreibt.
funktioniert auch.

Nun möchte ich aber, dass ich vorgeben kann, wieviele Einträge in der Log vorhanden sein dürfen. Sollte ein neuer Eintrag hinzukommen, dann soll der älterste rausfallen.

Ich mach das im Code so:

Delphi-Quellcode:

  try
    FileStream := TFileStream.Create(LogFile, fmOpenReadWrite);

    with FileStream do
      begin
        //Fehler-Text
        S := ErrorText;
        S := StringReplace(S, '<date>', DateToStr(date), [rfReplaceAll]);
        S := StringReplace(S, '<time>', TimeToStr(time), [rfReplaceAll]);
        S := S + #13#10;

        //
        If FAddAtEnd then
          //Am Ende der Datei schreiben (FileStream-Position = FileStream-Größe)
          Position  := Size
        else
          begin
            //Am Anfang der Datei schreiben

            //Vorhandene Datei auslesen
            Stream_Laenge := Size;

            If Stream_Laenge > 0 then
              begin
                SetLength(Buffer, Stream_Laenge);
                ReadBuffer(Buffer[1], Stream_Laenge);
              end;

            //Positionen setzen
            Size          := 0;
            Position      := 0;

            //Text zusammenfügen
            S             := S + Buffer;
          end;

        //In die vorhandene Datei schreiben
        WriteBuffer(S[1], Length(S));
      end;
  finally
    //FileStream freigeben und löschen
    FreeAndNil(FileStream);
  end;

Wie man sieht, kann ich entweder am Anfang der Datei oder am Ende der Datei einen Eintrag hinzufügen (abhängig von der Property "FAddAtEnd").

Nur wie kann ich jetzt vorgeben, wieviele Einträge maximal in der Datei sein sollen?

Danke für eure Hilfe!