System.Insert - 插入字符串

procedure Insert(
  Substr: String;   {要插入的字符串; 可以是常量}
  var Dest: String; {源字符串}
  Index: Integer    {从第几个字符前插入}
);

举例:

---

var
  ss,s: WideString;
begin
  ss := '万一的博客';
  s := ' Delphi ';
  Insert(s, ss, 4);
  ShowMessage(ss);  {万一的 Delphi 博客}
end;


var
  ss,s: string;
begin
  ss := '万一的博客';
  s := ' Delphi ';
  Insert(s, ss, 7);
  ShowMessage(ss);  {万一的 Delphi 博客}
end;

System 单元下的公用函数目录

---