Datei verkleinern / hinten abschneiden

[Almond]

Hallo

ich muß eine Datei hinten abschneiden.
Möchte die Datei nur öffnen, kürzen und wieder schließen ohne sie erneut abzuspeichern.

Quasi Truncate für Files :D

Wie kann ich das machen?

[inahurry]

Hi,

such mal in der Delphi-Hilfe nach "Truncate (Prozedur)" ... :thumb:

[marabu]

Auch das könnte funktionieren:

Delphi-Quellcode:

procedure FileResize(fn: TFileName; newSize: Int64);
begin
  with TFileStream.Create(fn, fmOpenReadWrite, fmShareDenyRead) do
  begin
    Size := newSize;
    Free;
  end;
end;

Grüße vom marabu