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 单元下的公用函数目录

posted on 2008-03-25 23:19  万一  阅读(5560)  评论(2编辑  收藏  举报