maximale Einträge in einer Text-Datei mit TFileStream

[Helmi]

So

ich hab den Part jetzt so umgebaut:

Delphi-Quellcode:

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

  try
    //Fehler-Text
    S := ErrorText;
    S := StringReplace(S, '<date>', DateToStr(date), [rfReplaceAll]);
    S := StringReplace(S, '<time>', TimeToStr(time), [rfReplaceAll]);

    //FileStream in Stringlist laden
    StringList.LoadFromStream(FileStream);

    If FAddAtEnd then
      begin
        //Ende
        StringList.Add(S);

        //Alle Einträge am Anfang der Liste löschen
        If FLoopCount > 0 then
          If StringList.Count > FLoopCount then
            for i := 0 to Pred(StringList.Count - FLoopCount) do
              StringList.Delete(i);
      end
    else
      begin
        //Anfang
        StringList.Insert(0, S);


        //Alle Einträge am Ende der Liste löschen
        If FLoopCount > 0 then
          If StringList.Count > FLoopCount then
            for i := Pred(StringList.Count) downto FLoopCount do
              StringList.Delete(i);
      end;

    //FileStream-Größe auf 0 setzen und dadurch löschen
    FileStream.Size := 0;

    //StringList in FileStream speichern
    StringList.SaveToStream(FileStream);

so kann ich auch auf die Anzahl der Einträge einwirken