Alternative zu PosEx und Insert

[SirThornberry]

insert vermute ich auch das es das unter Delphi6 gibt, wenn nicht:

Delphi-Quellcode:

procedure Insert(SubStr: String; var Dest: String; Index: Integer);
begin
  Dest := copy(Dest, 1, Index - 1) + SubStr + copy(Dest, Index, Length(Dest));
end;

@marabu: Die PosEx funktion sieht genau so unperformant aus wie meine Insert-Procedure