function StrReplace(s,oldstr,newstr:string):string; //字符串替换

var

SelPos,SelLen: Integer;

begin

SelPos := Pos(oldstr, s);

while SelPos > 0 do

begin

SelLen := Length(oldstr);

delete(s,SelPos,SelLen);

insert(newstr,s,SelPos);

SelPos := Pos(oldstr, s);

end;

Result:=s;

end;