偶好久没用过delphi了，那天一人出了一道题，我居然连delphi的语法都记不还清了，这想这儿一定有高手可以帮忙~！！！！！！

Question

原题：
   用delphi编写一个过程，实现在一字符串的任意位置插入一另字符串。比如在abcdef中插入ddd，结果得到abcdedddf。  偶用c++做好了， 可是用delphi偶当时就没有做出来， 特请高手帮帮忙。

Answer 1

首部 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas
功能 返回嵌套字符串
说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd'
参考 function System.Copy
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text);

Answer 2

procedure insertstr(var sstr : string; istr : string; pi : integer);
begin
  if (pi < 1) or (pi > length(sstr) - 1) then pi := 1;
  sstr := copy(sstr,1,pi) + istr + copy(sstr, pi + 1, length(sstr) - 1);
end;
procedure tform1.button1click(sender : tobject);
var
  s : string;
begin
  s := 'aaa';
  insertstr(s,'22',2);
  showmessage(s);
end;测试过，没问题

Answer 3

对了，还得补充一点，不能用delphi内置函数

Answer 4

vpoor(kIngAge)写得对.呵呵.比较简单的数据结构算法