Hallo,
so bleibt die Datei erhalten, nur der Inhalt wird entfernt:
Delphi-Quellcode:
procedure EmptyFile(const fn: TFileName);
begin
with TFileStream.Create(fn, fmOpenReadWrite or fmShareDenyWrite) do
try
Size := 0;
finally
Free;
end;
end;
Grüße vom marabu