Question

一个文本文件用delphi程序怎么把它清空

Answer 1

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;

Answer 2

做下搬运工：http://bbs.csdn.net/topics/10149346

Answer 3

以写的方式（rewrite()）打开它，在关闭（close()）即可。