怎样删除txt里面的内容？

Question

with TStringList.Create do
begin
  LoadFromFile(FileName);
  Delete(0);
  SaveToFile(FileName);
end;

Answer 1

SaveToFile(FileName);
后应该加一行Free;

Answer 2

var
  TXTFile: TStringList;
begin
  TXTFile := TStringList.Create;
  TXTFile.LoadFromFile(SourceFile);
  TXTFile.Delete(0);
  TXTFile.SaveToFile(SourceFile);
  TXTFile.Free;
end;

Answer 3

怎样删除txt里面的内容？
11.bmp
dd.d
rr.bmp
pp.d
22.bmp
33.d
如何删除所有的*.bmp呀？

Answer 4

var
TXTFile: TStringList;
StrCount: integer;
begin
TXTFile := TStringList.Create;
TXTFile.LoadFromFile(SourceFile);
StrCount := 0;
while StrCount < TXTFile.Count do
begin
  if LowerCase(ExtractFileExt(TXTFile[StrCount])) = '.bmp' then
    TXTFile.Delete(StrCount)
  else
    Inc(StrCount);
end;
TXTFile.Delete(0);
TXTFile.SaveToFile(SourceFile);
TXTFile.Free;
end;

Answer 5

呵，那句TXTFile.Delete(0)忘了删掉了。^_^
这是根据文件类型判断的，也可以通过判断字符串的最后几个字符来实现。

Answer 6

的确，通过TStringList操作文本文件非常方便！