Question

Delphi：如何修改文本文档？

比如在d盘下有一个文件xyz.txt ，里面有很多文字，我想先找到xxxyyyzzz字样后修改为zzzyyyxxx，应该怎么样操作？
用的是delphi7

Answer 1

如果使用标准的文本文件读写，可以参考下：
http://blog.163.com/doleph@126/blog/static/3990173020080298016670/

另外还有一种简单的方法，就是放一个memo控件，可以设置为不可见，直接用
memo1.lines.LoadFromFile("d:\xty.txt");
memo1.Text := StringReplace(mmo1.Text,'xxxyyyzzz','zzzyyyxxx',[]);//[rfReplaceAll]可替换所有
memo1.Lines.SaveToFile("d:\xty.txt");
就可以搞定了。

Answer 2

uses ........,StrUtils;

procedure TForm2.btn1Click(Sender: TObject);
var
SL: TStringList;
i: Integer;
begin
SL:=TStringList.Create;
try
SL.LoadFromFile('xyz.txt');
for i:= 0 to SL.Count-1 do
begin
SL.Strings[i]:=AnsiReplaceText(SL.Strings[i],'xxxyyyzzz','zzzyyyxxx');
end;
SL.SaveToFile('xyz.txt');
finally
SL.Free;
end;
end;