Команда UBound

[E'rsh]

Доброго времени суток!

Имеем вот такую переменную:

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

Public Type My_BytePointer
    Start As Single
    End As Single
End Type

Public Type My_LoadList
    URL As String
    NameFile As String
    BytePointer() As My_BytePointer
End Type

Dim pPerem() as My_LoadList

Внимание вопрос.
Как бы сделать изящнее определение длины массива "BytePointer", точнее не длины, а когда её (длины) нет. Ubound кричит об ошибке, а как определить что массив не имеет длины(если конечно это так называется) незнаю.

[Andrey Fedorov]

http://bbs.vbstreets.ru/viewtopic.php?t ... boundarray

[djalex777]

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

Private Declare Function GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long) As Long
Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (arr() As Any) As Long
Function ArrayExists(ByVal APtr As Long) As Boolean
  Dim IsEx As Boolean
  GetMem4 APtr, VarPtr(IsEx)
  ArrayExists = IsEx <> 0
End Function

А пользоваться вот так:

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

  ...
  dim arr() As long
  ...
  msgbox ArrayExists(ArrPtr(arr))