如何删除文本文件中的指定字符串

Question

例如：打开一个文本文件（c:\test.txt)删除字符串“XX”并记录删除了几次。
本人新手最好给出实现的代码。

Answer 1

读到TFileStream里 然后查找XX

Answer 2

本人刚学delphi,能给出代码学习下怎么实现的？

Answer 3

加载到TStrings里,然后替换成'',最后计算一下差值,应当可以得出去掉多少吧

Answer 4

按三楼意思写的代码：procedure TForm1.Button1Click(Sender: TObject);
var
  SS: TStringList;
  I: Integer;
begin
  SS := TStringList.Create;
  SS.LoadFromFile('c:\test.txt');
  I := Length(SS.Text);
  SS.Text := StringReplace(SS.Text, 'XX', '', [rfReplaceAll]);
  I := (I-Length(SS.Text)) div Length('XX');
  SS.SaveToFile('c:\result.txt');
  SS.Free;
  Showmessage('删掉'+InttoStr(I)+'个');
end;