Textdatei bei 100 MB Truncaten

[af99]

Hallo Zusammen,

ich möchte eine Textdatei auf 100MB kürzen.
Folgendes habe ich gemacht

Delphi-Quellcode:

var
  FileStream : TFileStream;

begin
  FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'log.txt', fmopenreadwrite);
  try
    if FileStream.Size > 1000000 then
    begin
      FileStream.Size := 1000000;
      FileStream.Position := FileStream.Size;
    end;
  finally
    FileStream.Free;
  end;
end;

Jetzt ist es in der Regel so das die letzet Zeile irgendwo abgeschnitten wird. Ich möchte aber das in der Datei nur vollständige Zeilen enthalten sind. Wie kann ich also die letzte unvollständige Zeile löschen?

Viele Grüße
Andreas