Определение размера динамического массива

[Евгений Д.]

Коллеги, никак не могу найти элегантный способ определения размера динамического массива, точнее его нулевой длины. Например:

Код: Выделить всё

Option Base 1

Function Test( MyArray() )

  Rows = UBound(MyArray)

  ...

End Function

При выполнении строчки Rows = UBound(MyArray) может выскочить ссобщение об ошибке, если до вызова функции Test размер массива MyArray не был переопределен по Redim.

Использование IsEmpty(MyArray) не помогает.

Пока решаю эту проблему, перехватывая ошибку. А нет ли более простого решения?

[alibek]

На сайт, читать статью про SAFE_ARRAY.

[Евгений Д.]

Спасибо. Ведь читал когда-то... Надо чинить статическую память [img]:D[/img].

[brigval]

Пока решаю эту проблему, перехватывая ошибку. А нет ли более простого решения?

VBA.IsArray не пробовали?

[alibek]

Он подходит для Variant, а не для массивов.

[brigval]

Он подходит для Variant, а не для массивов.

Действительно.

Вот вариант. Я так иногда делаю.

Можно принудительно переопределять массив до вызова функции и присваивать какое-либо значение. А внутри функции делать проверку на это значение. Тогда ошибка не будет возникать.

[alibek]

Зачем? Рабочую функцию уже написал GSerg, почему бы не использовать ее?

[brigval]

Зачем? Рабочую функцию уже написал GSerg, почему бы не использовать ее?

Я дал свой вариант ухода от ошибки. Если ваша функция лучше, пусть использует ее. Если вы ее приведете здесь, я тоже взгляну.

[alibek]

http://www.vbstreets.ru/VB/Articles/65977.aspx

[brigval]

http://www.vbstreets.ru/VB/Articles/65977.aspx

Довольно мудренно для начинающего...
Может быть потом пригодится. Спасибо.