delphi字符串替换

{
  功能：字符串替换
  参数:
    s: 源字符串
    source: 需要被替换的字符串
    target: 需要替换成的字符串
  返回值:
    替换后的字符串
  例：
    nowstr := replacing('<input type=><input>','<input','<lable');
    nowstr='<lable type=><lable>'
    }
function TfrmWebReport.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;