[Массивы] Поведение ReDim в пользовательской функции

[Serje]

Гуру, подскажите. Мне необходимо поменять размер массива несколько раз. Столкнулся с проблемой. При выходе из функции массив теряет приобретенный в ней размер, чего не происходит если просто вызывать ReDim.

Func MyReDim($array)
   MsgBox(0, "Old size", UBound($array))
   ReDim $array[UBound($array) + 1]
   MsgBox(0, "New size", UBound($array))
   $array[UBound($array) - 1] = Random(0, 100)
EndFunc

Dim $array_name[0]

MyReDim($array_name)
MsgBox(0, "Checking", UBound($array_name))
MyReDim($array_name)
MsgBox(0, "Checking", UBound($array_name))
ReDim $array_name[UBound($array_name) + 1]
MsgBox(0, "Checking", UBound($array_name))
ReDim $array_name[UBound($array_name) + 1]
MsgBox(0, "Checking", UBound($array_name))

Подскажите где ошибка? Возможно ReDim в пользовательской функции недопустим или должен использоваться как-то по-другому? Поиск результатов не дал.

 

[InnI]

Func MyReDim(ByRef $array)

 

[Serje]

упс. мне стыдно