TA貢獻(xiàn)2011條經(jīng)驗(yàn) 獲得超2個(gè)贊
我只是想到了這個(gè)。很簡(jiǎn)單，不需要API調(diào)用。有什么問(wèn)題嗎？
Public Function IsArrayInitialized(arr) As Boolean Dim rv As Long On Error Resume Next rv = UBound(arr) IsArrayInitialized = (Err.Number = 0)End Function
編輯：我確實(shí)發(fā)現(xiàn)了一個(gè)與Split函數(shù)行為有關(guān)的缺陷（實(shí)際上我稱(chēng)之為Split函數(shù)中的一個(gè)缺陷）。舉個(gè)例子：
Dim arr() As Stringarr = Split(vbNullString, ",")Debug.Print UBound(arr)
此時(shí)Ubound（arr）的價(jià)值是多少？它是-1！因此，將此數(shù)組傳遞給此IsArrayInitialized函數(shù)將返回true，但嘗試訪問(wèn)arr（0）將導(dǎo)致下標(biāo)超出范圍錯(cuò)誤。
TA貢獻(xiàn)1858條經(jīng)驗(yàn) 獲得超8個(gè)贊
這就是我的用途。這類(lèi)似于GSerg的答案，但使用了更好的文檔CopyMemory API函數(shù)，并且完全是自包含的（您只需將數(shù)組而不是ArrPtr（數(shù)組）傳遞給此函數(shù)）。它確實(shí)使用了VarPtr函數(shù)，微軟警告說(shuō)，但這是一個(gè)僅限XP的應(yīng)用程序，它可以工作，所以我不擔(dān)心。
是的，我知道這個(gè)函數(shù)會(huì)接受你拋出的任何東西，但是我會(huì)把錯(cuò)誤檢查留給讀者練習(xí)。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Public Function ArrayIsInitialized(arr) As Boolean Dim memVal As Long CopyMemory memVal, ByVal VarPtr(arr) + 8, ByVal 4 'get pointer to array CopyMemory memVal, ByVal memVal, ByVal 4 'see if it points to an address... ArrayIsInitialized = (memVal <> 0) '...if it does, array is intializedEnd Function
舉報(bào)