ИНФО: неинициализированный массив

[Vi]

Нашел полезную фичу определения неинициализированного массива (поиском не смог определить есть ли такая информация):

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

Dim a() ' As Long, String ...

If (Not a) = -1 Then
Debug.Print "array as not been initialized"
Else
Debug.Print "array as been initialized " & UBound(a)
End If

ReDim a(2)

If (Not a) = -1 Then
Debug.Print "array as not been initialized"
Else
Debug.Print "array as been initialized " & UBound(a)
End If


vbskb_info vbskb_hint vbskb_array

[ANDLL]

[Antonariy]

Прикольно. Интересно, как это работает и что за число возвращается, когда массив инициализирован.

[alibek]

Интересно, как это работает и что за число возвращается, когда массив инициализирован.

Скорее всего, указатель. Только непонятно, на что.

[Хакер]

Интересный и полезный косяк с кастованием: массивная переменная (являющаяся указателем на SafeArrayDescriptor) воспринимается как просто обычная Long-переменная, хранящая число. Соответственно возвращается Not от значения этой переменной. Если поставить ещё один Not, то будет опять нормальное значение переменной.

Фишка в том, что вместо просто переменной у нас массивная-переменная, и вместо просто значения — указатель на SA-дескриптор. Таким образом:

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

Dim SomeArray() As Long
ReDim SomeArray(33) As Long

AddressOfSafeArrayStructure = Not (Not SomeArray) ' вся фишка

Особо невереющие могут получить адрес массивной переменной и с помощью GetMem4 прочитать оттуда значение — уверяю, будет то же самое, что и Not(Not(...))



Обратимся к статье GSerg'а Сущность массивов в VB. Там автор для получения адреса SA-дескриптора использует следующий код:

Там для этой цели используется вызов VarPtr (через Declare), а затем GetMem4 (тоже через Declare), что катастрофически долго и громоздко, по сравнению с нашим вариантом.

Фактически, мы читаем значение переменной одной лишь инструкцией процессора (как и полагается), а не вызовом двух функций, которые к тому же надо резолвить.

Красота, одним словом. Vi респект за обнаруженный косяк.

[Viper]

Vi, респектище за обнаруженную фичу!
З.Ы. Надо править свой кирпич!

[Хакер]

Vi, а расскажи, как ты его нашёл?

Зачем-то написал видимо Not someArray. Зачем?

[Vi]

Я прочитал об этом на codeguru.
Исходный пост: http://www.codeguru.com/forum/showthread.php?t=461934
Я же помню об этом ресурсе и людях, которым нужна помощь.