Code: Select all
Procedure.S PutMid(S.S, I.I, New.S)
ProcedureReturn Left(S, I - 1) + New + Mid(S, I + Len(New) )
EndProcedure
Code: Select all
Procedure.S PutMid(S.S, I.I, New.S)
ProcedureReturn Left(S, I - 1) + New + Mid(S, I + Len(New) )
EndProcedure