function strth(str1,str2,str3:string):string;
begin
while pos(str2,str1)<>0 do
str1:=copy(str1,0,pos(str2,str1)-1)+str3+copy(str1,pos(str2,str1)+length(str2),length(str1));
strth:=str1;
end;
参数说明,str1 原字符串,str2被替换的字符串,str3替换成的字符串
上面那个有错....我自己写的..
memo2.Text:=StringReplace(memo1.Text,edit1.Text,edit2.Text, [rfReplaceAll]);
StringReplace 这个可以用