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;