Inhalt einer Textdatei löschen

[alcaeus]

Hallo St. Pauli,

Delphi-Quellcode:

function ClearFile(FileName: String): Boolean;
var
  F: Textfile;
begin
  AssignFile(F, FileName);
  {$I-}
  Rewrite(F);
  {$I+}
  Result := IOResult=0;
  CloseFile(F);
end;

Die Funktion liefer true zurueck, falls die Operation erfolgreich laeuft.

Greetz
alcaeus