重要的！！！无需使用字符串数组，无需额外。字符串并且不使用标准字符串处理函数和程序（动态内存分配也是无用的），也是插入函数的示例：
procedure myinsert(substring: string; var s: string; start: integer);
var
i, l, l1, f: integer;
begin
l := Length(substring);
for i:=1 to l do
s:=s+' ';
l1 := Length(s) + l;
for i := l1 - l downto start + l do
s[i] := s[i - l];
f := 1;
for i := start to start + l - 1 do
begin
s[i] := substring[f];
Inc(f);
end;
end;
1 个回答