用delphi删除文本文件中的所有行

Question

如果我已经创建了文本文件,那么我需要删除文本文件中的所有行以获取新的新文本.我们怎么做？当然,不首先删除文本文件然后创建新文本文件,只需删除文本文件内容,然后添加新的行文本.当显示器前面的人仍然打开该文本文件时,避免错误.

我使用的是TextFile类型,而不是TFileStream.附加,重写和关闭文件功能以打开文件.

就像

DeleteThisTextFileContent(ExtractFilePath(Application.Exename)+'log.txt');

谢谢 !

Answer 1

如果您正在使用AssignFile打开文件(因为您的编辑看起来像是),您可以使用Rewrite:

procedure DeleteThisFileContent(const FileToClear: string);
var 
  F: TextFile;
begin
  AssignFile(F, FileToClear);
  Rewrite(F); 
  CloseFile(F);
end;