Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=80474&view=findpost&p=587040 Sat, 22 Jan 2005 21:50:27 +0000 Определить корректность массива https://forum.sources.ru/index.php?showtopic=80474&view=findpost&p=587040
Цитата
Runtime error #9
Subscript out of range


Однако существует возможность избежать этой ошибки используя следующую функцию:

    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


а заюзать можно например так:

    Private Sub Form_Load()
      Dim TP() As String
      'ДАННЫЙ КОД ПОКАЗАН ДЛЯ ПРИМЕРА И ОН ВСЕГДА БУДЕТ ВОЗВРАЩАТЬ [False]
      MsgBox ArrayExists(ArrPtr(TP))
      End Sub
]]> SCINER Разное (кодинг)