Inhalt der textdatei löschen

[omata]

Hallo,

Delphi-Quellcode:

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

Gruss
Thorsten