如何将一个字符串写入另一个字符串的指定位置？

Question

如何将一个字符串写入另一个字符串的指定位置？请写个例程，谢谢
比如"12|234|5678|"，我要将"999"写入前面这个字符串，并将5678替换掉

Answer 1

procedure Insert(Source: string; var S: string; Index: Integer);

Answer 2

procedure Insert(var Source: string; S: string; Index: Integer);
var
  strHead,strTail : string;
begin
  strHead := Copy(Source,0,Index - 1);
  strTail := Copy(Source,Index - 1 + Length(S),Length(Source) - Index + Length(S));
  Source := strHead + S + strTail;
end;