• На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Как узнать массив пуст или нет?

Как узнать массив пуст или нет...?

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

Откровенно говоря, не вижу другого способа, кроме как просмотреть весь массив с помощью цикла for...

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

пустой массив - это массив не содержащий ни одного элемента, т.е. имеющий размерность = 0
вы, видимо, хотите узнать содержат ли элементы массива какие-то значения - тогда, действительно, без цикла не обойтись.

  • На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

Простите возможно я не правильно сформулировал вопрос!!!
например...
Dim Arr() as variant
............
тело процедуры
............
итог
нужно проверить был ли заполнен массив Redim Arr (....)
если нет то функция Ubound(Arr) возвращает ошибку, так как массив фактически не имеет длины...но переменная обьявленна как массив. А нужно знать есть в нем данные или нет.

  • callisto
  • Восстановленный участник
  • На форуме с 17 июня 2004г.
  • Сообщений: 204
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

тогда проще всего написать функцию, котоая в случае ошибки при использовании функции UBound(Arr) вернет False, а в случае нормальной отработки - True.
вот и все ... :)

  • На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

спасибо ... я так и думал...надеялся может, как нить по другому можно, но увы

  • Gorez
  • Восстановленный участник
  • На форуме с 4 декабря 2003г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

Есть стандартная функция, по крайней мере, для Excel VBA.
Точно не помню, посмотрю в книге, подскажу. Но она есть.

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

Sub A_Test()
     Dim Arr() As Variant
     Call ArrayTest(Arr)
End Sub
Function ArrayTest(Arr) As Boolean
     Dim L As Long
     On Error Resume Next
     L = UBound(Arr)
     If (Err.Number = 9) Then
          ArrayTest = True
          MsgBox "Array is empty!"
     End If
End Function

  • Gorez
  • Восстановленный участник
  • На форуме с 4 декабря 2003г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

Функция IsArray(А). А-массив
Возвращает true, если переменная типа Variant содержит массив значений, и false если нет.

  • На форуме с 16 сентября 2004г.
  • Сообщений: 9
  • Спасибо: 0

Re: Как узнать массив пуст или нет?

> Leonid
спасибо))

> Gorez
не совсем верно...если переменная обьявленна как массив Dim A() as variant функция IsArray всегда будет возвражать"истину"