Гуру, подскажите. Мне необходимо поменять размер массива несколько раз. Столкнулся с проблемой. При выходе из функции массив теряет приобретенный в ней размер, чего не происходит если просто вызывать ReDim.
Подскажите где ошибка? Возможно 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 в пользовательской функции недопустим или должен использоваться как-то по-другому? Поиск результатов не дал.