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