- Код: Выделить всё
sub insertandshiftarray(arr() as long, byval insnum as long, byval insval as long)
redim preserve arr(ubound(arr)+1)
copymemory arr(insnum+1), arr(insnum),(ubound(arr)-insnum)*4
arr(insnum)=insval
end sub
Прекрасно работает.
Спрашивается, в случае, если массив не лонговый, а объектно-указательный, я ничего не нарушу таким действием? COM Reference Count не пострадает?