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