Locked InsertStr Function

[F.I.G.H.T.E.R]

InsertStr Function By Metal (alternativas a Insert)

 

Versión 1:

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Versión 2: (Copy uses a slightly slower)

 

procedure InsertStr2(SubStr: String; var Dest: String; Index: Integer);
var
sAux, s2Aux: String;
begin
sAux:= Copy(Dest, 1, Index-1);
s2Aux:= Copy(Dest, Index, Length(Dest) - Length(sAux));
Dest:= sAux + SubStr + s2Aux;
end;

This is the hidden content, please

• Sign In
• or
• Sign Up

 

 

For Example:

 

This is the hidden content, please

• Sign In
• or
• Sign Up