Массив Byte успешно кастуется к Boolean, и всегда даёт True

[tyomitch]

Это бага или фича?
Массив Integer, например, генерирует Type Mismatch

[keks-n]

Есть мнение, что переменные кастуются через VariantChangeType. Посему надо ковырять доки к этой функции.

[Wolfie]

Действительно интересно, особенно что к массиву байт можно применить Not и результат всегда(докажите обратное) будет интерпритирован как True, вот например

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

Dim bolVar As Boolean, bytArr() As Byte
bytArr = vbNullString
bolVar = bytArr
Debug.Print bolVar
Debug.Print Not bytArr
bolVar = Not bytArr
Debug.Print bolVar
bolVar = Not Not bytArr
Debug.Print bolVar

напечатает

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

True
-1501569 ' Или, что веселее - другое число
True
True

т.е. что с Not, что с его отсутствием (или с Not Not) результат один и тот же: Истина...

[tyomitch]

Больше загадок:

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

Dim b() As Byte
b = "bogus"
Debug.Print CBool(b) ' натурально, печатает строку "bogus" 8-|


[Wolfie]

Вот, я сначала подумал, чо ВБ массив байт как строку понимает и поэтому так трактует, но вот собственно со строкой CBool делает Type Mismatch,

а главное, что ему (ВБ) все равно - нулевой ли массив, или все байты в нем - нули - все равно Истина...

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

Dim bytArr() As Byte, bolVar As Boolean

bytArr = "bogus"

bolVar = bytArr        ' SUCCESS
bolVar = CBool(bytArr) ' ERROR: TYPE MISMATCH

То есть полный прикол - ВБ не может применить функцию CBool к массиву байт, но по умолчанию, простым присвоением делает это на ура =)

[keks-n]

Есть мнение, что булевы значения - на самом деле Variant(хотя при передаче VARIANT_BOOL через COM-вызов в стеке валяется 2 байта, а в сях VARIANT_BOOL эквивалентен short (знаковый или нет, не помню)). И у варианта этого после присвоения в vt явно не VT_BOOL.

[tyomitch]

Wolfie, твоё предположение несколько сминается тем, что если в качестве строки взять "False", то bolVar = CBool(bytArr) всё равно порождает Type Mismatch (хотя bolVar = CBool(CStr(bytArr)) работает).

keks-n, твоё мнение опровергается, например, вызовами VarPtr для последовательных элементов массива Boolean.

[Wolfie]

tyomitch а я и не настаивал =) А вот это CBool(CStr(bytArr)) очень интересно, все таки байтовый массив очень близок к String =) Но загадок стало больше чем отгадок... боюсь что мы не скоро придем к ответу...

[Antonariy]

Действительно, похоже где-то глубоко внутри VB не делает особых различий между строкой и байтовым массивом.

[tyomitch]

Действительно, похоже где-то глубоко внутри VB не делает особых различий между строкой и байтовым массивом.

Это не фича VB, это стандартные функции VectorFromBstr и BstrFromVector.
И таки-да, строка и байтовый массив свободно присваиваются друг другу.
Но наблюдаемых с Boolean аномалий это нисколько не объясняет.

[tyomitch]

Продолжение:

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

Dim bt() As Byte, bl As Boolean
bt = "bogus"
bl = bt
Debug.Print Hex(Peek(VarPtr(bl)) And &HFFFF&)


Печатается "F894", независимо от содержимого строки.

[Wolfie]

А я уже намекал, что строка

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

Debug.Print Not bytArr

печатает разные числа при одном и томже значении в массиве но при разном кол-ве операций (не касающихся массива) - и предыдущее высказывание наводит на мысль, что мы имеем дело вроде как с каким-то хэндлом или адресом памяти (отсюда постоянное True, ибо не нулевой же хэндл)? Т.е. возморжно при некоторых случаях, массив возвращает что-то, но не содержимое, а хэдэр структуры? (Хочу отметить, что это лишь мои теории, которыми я надеюсь натолкнуть кого-нибудь на мысль )
[offtopic]Надеюсь к моему возвращению дней через 15 кто-нибудь расскажет о том, почему Byte Array так себя ведет[/offtopic]