如何清空文件内容？

Question

No.1 用空内容覆盖
with TStringList.Create do try
  SaveToFile('c:\temp.dat');
finally
  Free;
end;

Answer 1

No.2 标准语句
procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
begin
  AssignFile(f, 'c:\temp.dat');
  Rewrite(f);
  CloseFile(f);
end;

Answer 2

var
inputfile:Textfile;
begin
assignfile(inputfile,'c:\1.txt');
rewrite(inputfile);
writeln(inputfile,'');
closefile(inputfile);
end;