帮帮忙呀！！TFileStream的小问题!!!!

Question

procedure TForm1.Button1Click(Sender: TObject);
var MS:TFileStream;
begin
if opendialog1.Execute then
begin
MS:=TFileStream.create(opendialog1.FileName,fmOpenRead);
Memo1.Lines.LoadFromStream(MS);
MS.free;
end;
end;
end.如何替换里面指定的字符串？？？？
是不是像VB里用 RePlace(string,vbCrLf,"<br>")一样？？？

Answer 1

使用 AnsiReplaceText ，如下：procedure TForm1.Button1Click(Sender: TObject);
begin
  showMessage(ansiReplaceText('http://www.goomoo.net','goomoo','csdn'));
end;注意要 Uses StrUtils;

Answer 2

function AnsiReplaceText(const AText, AFromText, AToText: string): string;这个怎么用呀？？？

Answer 3

AnsiReplaceText 将源字符串中的一段替换成其他字符串，比如 AnsiReplaceText('red,green,blue',',',';');上面这段代码将字符串"red,green,blue" 中的逗号全部替换成分号。

Answer 4

为什么我用老是出事？？？
说“未声明ansireplace”