怎样清空文件内容？

Question

怎样清空一个文件的内容，我用了Erase(var F)方法，但这个方法是彻底“清除”！

Answer 1

text1.text:=""
-----------------------------------------------------------------------
人在江湖，人不由已！我喜欢程序员这职业！

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
f:TextFile;
begin
AssignFile(f,'c:\xxx.txt');Rewrite(f);
try
writeln(f,'sss');
finally
// try ... finally...end 是一个文本操作过程
end;
end;

Answer 3

使用R e w r i t e ( )过程创建并打开文
件；对于一个已存在的文件，此操作将使文件被覆盖；

Answer 4

如果仅仅是为了晴空，那么可以用一个Memo控件，先load进来，然后在save出去，中间的一个操作就是memo1.lines.clear

Answer 5

也可以用stream作为中间的操作介质