txt datei leer?

[omata]

Delphi-Quellcode:

procedure CreateEmptyFile(Dateiname:string);
var Datei:textfile;
begin
  try  
    assignfile(Datei, Dateiname);
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;