这是本人自己制作的替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。

function replacing(S

source

target:string):string;

var site

StrLen:integer;

begin

{source在S中出现的位置}

site:=pos(source

s);

{source的长度}

StrLen:=length(source);

{删除source字符串}

delete(s

site

StrLen);

{插入target字符串到S中}

insert(target

s

site);

{返回新串}

replacing:=s;

end;