Textdatei löschen oder leeren

[marabu]

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