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