请问怎么样删除一个文本文件中的全部内容！！！

Question

如题，急急急！！！

Answer 1

var 
  f: textfile;
begin
  AssignFile(f,’.\delme.bat’);
  Rewrite(f);
  Writeln(f,'');
  CloseFile(f);
end;

Answer 2

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.SaveToFile('你的文件.txt');
  finally
    SL.Free;
  end;
end

Answer 3

Writeln(f,'');  //这句是没必要的。

Answer 4

方法为:  
  1. AssignFile
  2. ReSet
  3. BlockWrite,把整个文件从头到尾用不可读的字符写一遍!
  4. DeleteFile