System.Insert - 插入字符串

procedure Insert(

  Substr: String;   {要插入的字符串; 可以是常量}

  var Dest: String; {源字符串}

  Index: Integer    {从第几个字符前插入}

);

举例:

var

  ss,s: WideString;

begin

  ss := '万一的博客';

  s := ' Delphi ';

  Insert(s, ss, );

  ShowMessage(ss);  {万一的 Delphi 博客}

end;

var

  ss,s: string;

begin

  ss := '万一的博客';

  s := ' Delphi ';

  Insert(s, ss, );

  ShowMessage(ss);  {万一的 Delphi 博客}

end;

System 单元下的公用函数目录