字符转换

Question

    //abc:='abc12345def678';
    //mystr:='fg';
    //chgstr:='45';    i:=Pos(chgstr,abc);
    Delete(abc,i,length(chgstr));
    Insert(mystr,abc,i);
    Label1.Caption:='Mission Accomplished!';如果有多个匹配串请作相应修改。

Answer 1

倒！~~~~~~~~
StringReplace(abc,'45','fg',rfReplaceAll);

Answer 2

stringreplace()怎么用?可以举个例子吗?

Answer 3

这样为什么不行 ???
procedure TForm1.FormCreate(Sender: TObject);
var ttt:string;
var bbb:string;
begin
ttt:='abcdefghijk';
bbb:=StringReplace(ttt,'g','new',rfReplaceAll);
end;