• Home
 · 
• Data Structures
 · 
• Check if dynamic array dimensioned already

Check if dynamic array dimensioned already

Tells if a dynamic array has been dimensioned or not.
Lu

Rate Check if dynamic array dimensioned already

• 1
• 2
• 3
• 4
• 5

(39(39 Vote))

Function Member(ary$(), text$)
  On Local Error GoTo MemberExit
  For i = 1 To UBound(ary$)
    If text$ = ary$(i) Then
      subscript = i
      Exit For
    End If
  Next
MemberExit:
  Member = subscript  
End Function
;========================================
another possibility;
Function ArrayElements(ary$())
  elements = 0    
  On Local Error GoTo MemberExit
  elements = UBound(ary$)
MemberExit:
  ArrayElements = elements
End Function