delphi編程自制替換指定串函數

這是本人自己制作的替換字符串中子串的函數，他可以從字符串中找出指定子串，並替換為另一子串。

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;