function Replacing(str,source,target: string): string;
var pos,strlne : integer;
begin
pos := pos(sourcs,str); // 找到要替换子串的位置
strlen := length(source); // 计算子串的长度
delete(str,pos,strlen); // 删除要替换的子串
insert(target,str,pos); // 在删除子串的位置上插入替换的串
result := str; // 返回替换后的结果
end;

]]>