STR:='123456Qwe789';S1='Qwe', S2='ASDFG';如何 用'ASDFG' 代替 'Qer',使 Str:='123456ASDFG789';?

Question

STR:='123456Qwe789';
S1='Qwe', S2='ASDFG';
如何 用'ASDFG'  代替  'Qer',使 Str:='123456ASDFG789';?

Answer 1

代替  'Qer'还是'Qwe' ??

Answer 2

不是答了吗 ？StringReplace(STR,S1,S2,[rfReplaceAll]) ;
//或
StringReplace(STR,'Qwe','ASDFG',[rfReplaceAll]) ;

Answer 3

同意 wjlsmail(计算机质子) 的

Answer 4

我竟然不知道有StringReplace这个函数还自己写了一个，郁闷！
function TForm1.replaceStr(str,s1,s2:string):string;
var
  site,sLen:integer;
begin
   site:=pos(s1,str);
   sLen:=length(s1);
   delete(str,site,sLen);
   insert(s2,str,site);
   replaceStr:=str;
end;