壹個文本文件用delphi程序怎麽把它清空

function closeFile(filename:string):Boolean;

var

sFile: File;//文件類型

begin

AssignFile(sFile,filename); //filename 就是文件路徑比如c:\1.txt 綁定到sFile類型

Rewrite(sFile); //創建和重寫文本

Close(sFile);//關閉類型

if FileExists(filename) then 綁斷文件本是否存在

Result:= True else 存在返回True 真

Result:= False; 不存在返回False 假

end;