菜鸟问题：如何把文本文件的内容清空，而不是删除该文件？

Question

设定一个MyList:StringList，MyList.Clear;
MyList.SaveToFile(YourFileName);

Answer 1

在打开的情况下有什么办法？
var
  F: TextFile
begin
  Assign(F, 'c:\test.txt');
  Reset(F);
  //进行读取操作...
  //清空文件内容 //////////请问如何实现？
  CloseFile(F);
  

Answer 2

var
  F: TextFile
begin
  Assign(F, 'c:\test.txt');
  Rewrite(F);
  CloseFile(F);
  

Answer 3

var
  f: file of Integer;
begin
  AssignFile(f,'TEXT.INI');
  ReSet(f);
  Truncate(f); { Cut file off here }
  CloseFile(f);
end;

Answer 4

var 
 F: textfile;rewrite(F)