Как определить: пуст массив или нет?

[vbStr]

Часто появляется такая проблема. Необходимо обработать массив (напр., его напечатать), но заполнен он или нет, неизвестно. Как выяснить: заполнен ли массив или нет? Функции типа Is*** не помогли.

[Konst_One]

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

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

Dim arr() as String

то тогда обращайся к любому элементу и по ошибке смотри.

а если уже был редим, но не заполнялся, то по содержимому

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

len(arr(0))>0

, например

[vbStr]

то тогда обращайся к любому элементу и по ошибке смотри

Konst_One, что значит "смотреть по ошибке"?
Если зашла речь об ошибках, то появился еще вопрос. Часто в кодах встречаю выражение

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

On Error Resume Next

Что оно означает? "Пропусти ошибку, если она будет"? Так?

[A.A.Z.]

Именно.
http://msdn.microsoft.com/library/defau ... nerror.asp

[tyomitch]

если только объявлен как

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

Dim arr() as String

то тогда обращайся к любому элементу и по ошибке смотри.

Есть способ лучше: смотреть внутрь SAFEARRAY. Копирайты, кажется, у GSerg и Approximator.

[error41]

for a=0 to arr.ubound
if arr(a)=0 then b=b+1
c=c+1
next a

if b=c then "масив пустой"

Может не слишком оригинально, зато работает

[GSerg]

Да ну?

И давно у массива есть свойство ubound?
А разницу между пустым и нулевым массивом - не?

[tyomitch]

Да ну?

И давно у массива есть свойство ubound?

Года эдак с 2001, разве нет?

[alibek]

Да ну???
Помоему ты путаешь с коллекциями и массивами контролов.

[Andrey Fedorov]

Часто появляется такая проблема. Необходимо обработать массив (напр., его напечатать), но заполнен он или нет, неизвестно. Как выяснить: заполнен ли массив или нет? Функции типа Is*** не помогли.

GetArrayDimensions - возвращает размерность массива или 0 если массив не инициализирован.

UboundArray - возвращает кол-во элементов в указанной размерности массива или -1 если данная размерность не инициализирована.

То есть UboundArray неинициализированного массива вернет -1.
------------------------------------------

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

Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
    (Destination As Any, Source As Any, ByVal Length As Long)

Public Function UboundArray(ArrayName As Variant, Optional Dimension As Integer = 1) As Long
    If Dimension < 1 Or Dimension > GetArrayDimensions(ArrayName) Then
        UboundArray = -1
    Else
        UboundArray = UBound(ArrayName, Dimension)
    End If
End Function

Public Function GetArrayDimensions(arr As Variant) As Integer
    Dim a As Long

    CopyMemory a, ByVal VarPtr(arr) + 8, 4
    CopyMemory a, ByVal a, 4
    If a Then CopyMemory GetArrayDimensions, ByVal a, 2
End Function