Dim a() As Integer, b As Integer
On Error Resume Next
b = UBound(a)
if b=... then...
Как узнать, что динамический массив пуст?
У меня в программе встречаются динамические массивы, определенные как ARRAY%() с числовым типом данных. Я не знаю заранее, применялся ли к этому массиву оператор ReDim, поэтому при проверке его верхней границы командой Ubound(ARRAY) в случае, если ReDim не применялся выдается ошибка. Каким еще оператором я могла бы проверить не пустой ли мой массив ARRAY?
Цитата: insane88
Такой вариант:
Код:
Dim a() As Integer, b As Integer
On Error Resume Next
b = UBound(a)
if b=... then...
On Error Resume Next
b = UBound(a)
if b=... then...
Через Error я могу, а другой функции не существует?
Типа If Массив Is Empty Then...
Цитата: lakuster
Через Error я могу, а другой функции не существует?
Типа If Массив Is Empty Then...
Типа If Массив Is Empty Then...
Тут акцент не на Error, а на UBound, который возвращает количество эллементов масива, а точнее, верхнюю его границу.
То есть вариант, предложенный Insane88 - рулит.
2 lakuster: Как вариант - напиши :)
Спасибо, все О'кей!