ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dim a1() vs Dim a2
52 сообщений из 52, показаны все 3 страниц
  все  
Dim a1() vs Dim a2
    #39021139
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Чем по сути отличаются декларации:
Код: vbnet
1.
Dim a1()


и
Код: vbnet
1.
Dim a2


?
...
Рейтинг: 0 / 0
02.08.2015, 12:33
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021150
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
1 по сути массив, 2 по сути что угодно.
...
Рейтинг: 0 / 0
02.08.2015, 13:16
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021178
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Первое - неинициализированный динамический массив элементов типа Variant.
Второе - одиночная переменная типа Variant.
...
Рейтинг: 0 / 0
02.08.2015, 14:30
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021186
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
booby
Участник
по сути - способом проверки допустимости типа присваиваемого значения
...
Рейтинг: 0 / 0
02.08.2015, 16:14
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021196
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
boobyпо сути - способом проверки допустимости типа присваиваемого значенияхорошо сказал.
...
Рейтинг: 0 / 0
02.08.2015, 16:58
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021442
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Я понимаю, что "2 по сути что угодно". Переформулирую вопрос.
Чем по сути отличаются конструкции:
Код: vbnet
1.
2.
Dim a1()
ReDim a1(100) as Byte


и
Код: vbnet
1.
2.
Dim a2
ReDim a2(100) as Byte


?
...
Рейтинг: 0 / 0
03.08.2015, 09:49
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021454
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
тем, что во втором случае ты не сможешь написать
Код: vbnet
1.
a2(0) = 1
...
Рейтинг: 0 / 0
03.08.2015, 10:06
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021482
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Иван FXS,
по сути ответил Antonariy 17965772 .

ЗЫ:
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
03.08.2015, 10:37
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021511
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
скукотища,

да нет, лучше всего ответил booby.
...
Рейтинг: 0 / 0
03.08.2015, 11:03
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021625
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Shocker.Pro,
после ReDim я смогу написать Let a2(0) = 1 точно также как Let a1(0) = 1
...
Рейтинг: 0 / 0
03.08.2015, 12:49
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021628
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
... а до ReDim - точно также - не смогу.
...
Рейтинг: 0 / 0
03.08.2015, 12:51
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39021644
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Иван FXSShocker.Pro,
после ReDim я смогу написать Let a2(0) = 1 точно также как Let a1(0) = 1написать-то ты сможешь, а скомпилировать?
...
Рейтинг: 0 / 0
03.08.2015, 13:03
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022144
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
booby
Участник
Иван FXSЯ понимаю, что "2 по сути что угодно". Переформулирую вопрос.
Чем по сути отличаются конструкции:
Код: vbnet
1.
2.
Dim a1()
ReDim a1(100) as Byte


и
Код: vbnet
1.
2.
Dim a2
ReDim a2(100) as Byte


?

тем что в первом случае производится несанкционированная попытка изменения типа переменной. Тип элемента массива не может быть заменен при динамическом переразмещении массива, если переменная была объявлена как переменная, ссылающаяся на массив однажды (и навсегда) заявленного типа.
Этот код не сможет скомпилироваться, т.к. заявленный тип элемента массива a1 не может быть динамически заменен в данном случае.

Во втором случае компилятор считает, что базовый тип a2 не меняется - был вариант и остался вариант.
Просто после выполнения Redim этот вариант стал содержать массив.
Поэтому, как в последующем redim-е массив может быть пересоздан с заменой типа элемента, так и волшебно вообще перестать быть массивом и превратиться - хочешь в дату, а хочешь - в строку - по велению писателя, а потом опять в массив, пока не видно, с каким типом элемента, т.к. программист не успел еще написать этот кусок кода.

Все эти действия вообще не меняют (базового) типа переменной a2, а меняют только ее
"подтип". Поэтому все они последовательно допустимы.

Вообще стоит справку почитывать.
конкретно этот вопрос детально освещен в справке на redim:

[You can use the ReDim statement repeatedly to change the number of elements and dimensions in an array. However, you can't declare an array of one data type and later use ReDim to change the array to another data type, unless the array is contained in a Variant. If the array is contained in a Variant, the type of the elements can be changed using an As type clause, unless you’re using the Preserve keyword, in which case, no changes of data type are permitted.
---
Note To resize an array contained in a Variant, you must explicitly declare the Variant variable before attempting to resize its array.
]
...
Рейтинг: 0 / 0
03.08.2015, 22:17
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022715
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Господа, спасибо за ваше терпение. Попробую третью попытку.

Будет ли код, начинающийся с
Код: vbnet
1.
2.
Dim a1() as Byte
ReDim a1(100)



более "эффективен", чем код, начинающийся с
Код: vbnet
1.
2.
Dim a2
ReDim a2(100) as Byte


?
...
Рейтинг: 0 / 0
04.08.2015, 16:00
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022727
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
booby
Участник
Иван FXS,

еще раз - до эффективности
у этого кода
Код: vbnet
1.
2.
Dim a1() as Byte
ReDim a1(100)



нет шансов скомпилироваться.

про "эффективен":
становится откровенно скучно.
Придайте этому "слову" набор конкретных смыслов, пригодных к обсуждению.
Может быть и про "эффективность" тогда поговорим.
...
Рейтинг: 0 / 0
04.08.2015, 16:10
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022760
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Код: vbnet
1.
2.
Dim a1()
ReDim a1(100) as Byte


- это была ошибка, я её признаю, написал впопыхах.

Но с кодом
Код: vbnet
1.
2.
Dim a1()  as Byte
ReDim a1(100)


всё в порядке.
...
Рейтинг: 0 / 0
04.08.2015, 16:35
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022772
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
booby
Участник
Иван FXS,
ок
...
Рейтинг: 0 / 0
04.08.2015, 16:43
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39022898
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Я, собственно, почему спрашиваю - вторая конструкция позволяет легко проверять, инициирован ли массив:

Код: vbnet
1.
2.
3.
4.
Static a2
If not IsArray(a2) Then
      ReDim a2(100) as ЧтоТо
End If


...
...
Рейтинг: 0 / 0
04.08.2015, 19:18
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023044
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Первая тоже позволяет
Код: vbnet
1.
2.
3.
4.
Dim a1()
If ((Not a1) = -1) Then
    ReDim a1(100)
End If
...
Рейтинг: 0 / 0
05.08.2015, 07:42
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023158
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
hclubmk, это фантастика! Я реально выпал в осадок!!

Кто-нибудь может объяснить, на каком основании код
Код: vbnet
1.
2.
Dim a1()
If  Not a1 Then stop


- является корректным?

При том что код
Код: vbnet
1.
2.
Dim a1()
If  a1 Then stop


- вполне ожидаемо (для меня по крайней мере) является некорректным.
...
Рейтинг: 0 / 0
05.08.2015, 10:33
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023274
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Наверно потому, что условие под if MSDNRequired. Expression. Must evaluate to True or False , or to a data type that is implicitly convertible to Boolean
...
Рейтинг: 0 / 0
05.08.2015, 11:35
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023311
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MSDNRequired. Expression. Must evaluate to True or False , or to a data type that is implicitly convertible to Booleanне подходит. Тогда бы работало без Not, а также CBool(a), ан нет
...
Рейтинг: 0 / 0
05.08.2015, 11:58
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023325
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSКто-нибудь может объяснить, на каком основании код
Код: vbnet
1.
2.
Dim a1()
If  Not a1 Then stop


- является корректным?
.

На том основании:

авторNot Operator
Performs logical negation on a Boolean expression, or bitwise negation on a numeric expression.
result: Required. Any Boolean or numeric expression.
...
Рейтинг: 0 / 0
05.08.2015, 12:07
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023326
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Shocker.Proа также CBool(a) Круто! а такое преобразование типов (я имею ввиду массив) допустимо вообще? Да и без Not к bool явно не преобразовывается.
...
Рейтинг: 0 / 0
05.08.2015, 12:08
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023339
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
hclubmkShocker.Proа также CBool(a) Круто! а такое преобразование типов (я имею ввиду массив) допустимо вообще? Да и без Not к bool явно не преобразовывается.так о чем и речь. Почему CBool(a1) нельзя, а Not a1 можно?
...
Рейтинг: 0 / 0
05.08.2015, 12:15
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023366
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Shocker.ProПочему CBool(a1) нельзя, а Not a1 можно?

Странные вещи ты пишешь для VB программиста.
CBool(a1) нельзя потому, что эта функция принимает в качестве параметра Expression
а вот CBool(Not a1) - можно, по описанной выше причине.
...
Рейтинг: 0 / 0
05.08.2015, 12:28
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023410
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
EoltСтранные вещи ты пишешь для VB программиста.потому что всю жизнь решал прикладные задачи, в кишки лазил мало )

Eoltа вот CBool(Not a1) - можно, по описанной выше причине.Почему CBool(-1) можно - мне понятно ))
Почему неявное преобразование в Boolean тут If a1 Then не работает, а в выражении Not a1 работает - мне непонятно (точнее, даже не мне, как прикладнику, а больше автору топика)
...
Рейтинг: 0 / 0
05.08.2015, 12:50
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023420
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> Shocker.Pro,
> Почему CBool(a1) нельзя, а Not a1 можно?

... и почему Not в данном случае не отрицание, а инверсия?
...
Рейтинг: 0 / 0
05.08.2015, 12:53
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023465
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
автор Почему неявное преобразование в Boolean тут If a1 Then не работает

Потому, что код

Код: vbnet
1.
2.
Dim a1()
If  a1 Then



изначально бредовый. В условии IF должен быть тип, который VB сможет неявно преобразовать в Boolean.
А здесь указывается ссылка на массив, поэтому закономерно выдается ошибка компиляции.

автора в выражении Not a1 работает - мне непонятно

Код тоже бред. Но, оператор NOT в качестве Expression может получать выражение числового типа, или того типа который можно привести к числовому. Ссылка на массив может быть приведена к числовому типу. Хотя бы к нулю. Поэтому все работает.


P.S. Лучше не использовать неявное приведение типов. Оно слишком запутано и много подводных камней.
...
Рейтинг: 0 / 0
05.08.2015, 13:16
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023487
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSЧем по сути отличаются декларации:
Код: vbnet
1.
Dim a1()


и
Код: vbnet
1.
Dim a2


?

Dim a1() - ты сказал компилятору, что когда-то в будущем, создашь одномерный массив Variant с названием a1.
Память под массив не выделяется, ссылок на него нет, фактически массив не существует.

Dim a2 - ты выделил память под переменную типа Variant. После объявления переменная существует, ссылка на нее есть.
...
Рейтинг: 0 / 0
05.08.2015, 13:35
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023532
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Eolt,

"Память под массив не выделяется, ссылок на него нет, фактически массив не существует"

-- а в коде
Код: vbnet
1.
2.
Dim a1()
If  Not a1 Then stop



тоже "ссылок на него нет" (до самого конца)? С чем тогда Not работает?
...
Рейтинг: 0 / 0
05.08.2015, 14:22
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023541
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSEolt,
-- а в коде
Код: vbnet
1.
2.
Dim a1()
If  Not a1 Then stop



тоже "ссылок на него нет" (до самого конца)? С чем тогда Not работает?

автор Но, оператор NOT в качестве Expression может получать выражение числового типа, или того типа который можно привести к числовому. Ссылка на массив может быть приведена к числовому типу. Хотя бы к нулю. Поэтому все работает.


Not получает ссылку на несуществующий массив, приводиn ее к числовому типу и возращает логический тип False, который затем использует оператор IF
...
Рейтинг: 0 / 0
05.08.2015, 14:27
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023564
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Eolt,

правильно ли я понимаю, что "несуществующий" (массив в данном случае) - это такой специальный модус существования? И "ссылок на него нет", но "Not получает ссылку" ...

В конце концов, как говорится в том анекдоте - "'вилька' и 'тарелька' пишется без мягкого знака; понять это невозможно, нужно просто запомнить!"
...
Рейтинг: 0 / 0
05.08.2015, 14:49
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023565
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
EoltNot получает ссылку на несуществующий массив, приводиn ее к числовому типупочему тогда другие функции не могут "привести эту ссылку к числовому типу"?
...
Рейтинг: 0 / 0
05.08.2015, 14:49
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023569
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
... в сухом остатке, оказывается, иногда всё-таки можно оперировать неинициализированными объектами ...
...
Рейтинг: 0 / 0
05.08.2015, 14:52
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023577
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Скорее, Not инвертирует нулевую ссылку (если уместно так сказать), в -1. В числовом представление CLng(True) тоже -1 (ну или наоборот, если угодно) Отсюда и Not a() == -1 (т.е. Long), а -1 в свою очередь == True ибо VarType(Not a()) = 3 (Long)
...
Рейтинг: 0 / 0
05.08.2015, 15:00
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023585
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSEolt,

правильно ли я понимаю, что "несуществующий" (массив в данном случае) - это такой специальный модус существования? И "ссылок на него нет",

это не модус существования, это неинициализированный указатель . Он может иметь нулевое или любое произвольное числовое значение. Указывает не на реальный объект, а на произвольный кусок памяти

авторно "Not получает ссылку" ...

правильнее сказать не получает ссылку, а "считает" переданный ему указательный тип Pointer, числовым типом - Int32.
...
Рейтинг: 0 / 0
05.08.2015, 15:09
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023605
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Eoltправильнее сказать не получает ссылку, а "считает" переданный ему указательный тип Pointer, числовым типом - Int32.почему тогда попытка присвоения переменной типа Long подобного указателя приводит к ошибке времени выполнения? Ошибка в VB Runtime, который не генерирует исключение при попытке Not над неинициализированным объектом?
...
Рейтинг: 0 / 0
05.08.2015, 15:23
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023632
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
hclubmkСкорее, Not инвертирует нулевую ссылку (если уместно так сказать), в -1.

Кстати да, ты прав.

Код: vbnet
1.
2.
3.
4.
5.
  Dim a1()
  Debug.Print Not a1
  
  ReDim a1(0)
  Debug.Print Not a1



получаем:
-1
-151905777
...
Рейтинг: 0 / 0
05.08.2015, 15:45
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023645
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Shocker.Proпочему тогда попытка присвоения переменной типа Long подобного указателя приводит к ошибке времени выполнения? А как происходит присваивание? так:
Код: vbnet
1.
a& = Not Nothing

или так:
Код: vbnet
1.
a& = Not ObjPtr(Nothing)

?
...
Рейтинг: 0 / 0
05.08.2015, 15:54
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023659
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
БЕЗ Not
...
Рейтинг: 0 / 0
05.08.2015, 16:01
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023692
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Shocker.Proпочему тогда попытка присвоения переменной типа Long подобного указателя приводит к ошибке времени выполнения? Ошибка в VB Runtime, который не генерирует исключение при попытке Not над неинициализированным объектом?

Вроде нормально присваивается, без ошибок

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Option Explicit
Private Declare Function VarPtrArray Lib "msvbvm60" Alias "VarPtr" (Var() As Any) As Long
Private Sub Form_Load()
    Dim a1()
    Dim ArrayPtr As Long
    ArrayPtr = VarPtrArray(a1)
End Sub
...
Рейтинг: 0 / 0
05.08.2015, 16:22
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023788
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Код: vbnet
1.
2.
3.
4.
Dim a1()
If Not a1 Then Stop
ReDim a1(100)
If Not a1 Then Stop



-- увы, оба стопа срабатывают. Так что в качестве признака (не-)инициализированности массива эта конструкция не годится!
...
Рейтинг: 0 / 0
05.08.2015, 17:37
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023791
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Иван FXS
Код: vbnet
1.
2.
3.
4.
Dim a1()
If Not a1 Then Stop
ReDim a1(100)
If Not a1 Then Stop




-- увы, оба стопа срабатывают. Так что в качестве признака (не-)инициализированности массива эта конструкция не годится!правильно будет сравнивать с -1 по вышеизложенным причинам
...
Рейтинг: 0 / 0
05.08.2015, 17:41
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023795
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
100 рублей убытку :)
Код: vbnet
1.
2.
3.
4.
Dim a1()
If (Not a1) = -1 Then Stop
ReDim a1(100)
If (Not a1) = -1 Then Stop
...
Рейтинг: 0 / 0
05.08.2015, 17:46
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023801
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSТак что в качестве признака (не-)инициализированности массива эта конструкция не годится!

для проверки инициализированности массива лучше использовать вот такой код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Option Explicit

Private Function ArrayInit(vArr) As Boolean
   On Error Resume Next
        If Not IsArray(vArr) Then
            GoTo Handler
        ElseIf IsError(UBound(vArr)) Then
            GoTo Handler
        ElseIf (UBound(vArr) = -1) Then
            GoTo Handler
        End If
        ArrayInit = True
Handler:
    On Error GoTo 0
End Function

Private Sub Form_Load()
  Dim a1()
  If ArrayInit(a1) Then Stop
   
  ReDim a1(100)
  If ArrayInit(a1) Then Stop
End Sub
...
Рейтинг: 0 / 0
05.08.2015, 18:00
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023802
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
пинание исключения не лучший вариант в цикле....
...
Рейтинг: 0 / 0
05.08.2015, 18:01
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023806
hclubmk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hclubmk
Участник
Shocker.ProБЕЗ Not да по сути - без разницы. В 1-м случае - попытка присвоить переменной типа Long ссылку на несуществующий объект - (пустую ссылку) не работает; во втором - присвоить переменной адрес несуществующего объекта = 0;
...
Рейтинг: 0 / 0
05.08.2015, 18:07
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023821
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Not Not a - адрес SafeArray. В IDE такое прокатывает, но потом если использовать действия с арифметическим сопроцессором происходит ошибка Expression too complex. В скомпилированном варианте таких проблем не возникает. Так что это, так сказать, багофича.
Вот примеры
http://www.cyberforum.ru/post6044230.html
...
Рейтинг: 0 / 0
05.08.2015, 18:28
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023845
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
Eolt,

Код: vbnet
1.
ElseIf (UBound(vArr) = -1) Then


- то есть массивы

Код: vbnet
1.
dim a(-222 to -1)


в природе не существуют?
...
Рейтинг: 0 / 0
05.08.2015, 19:38
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023847
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иван FXS
Участник
hclubmk100 рублей убытку :

-- спасибо, понял, преклоняюсь.
...
Рейтинг: 0 / 0
05.08.2015, 19:39
| Ответить | Цитировать | Написать  
Dim a1() vs Dim a2
    #39023853
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Иван FXSEolt,

Код: vbnet
1.
ElseIf (UBound(vArr) = -1) Then


- то есть массивы

Код: vbnet
1.
dim a(-222 to -1)


в природе не существуют?

ну добавь проверку на отрицательные массивы, в чем проблема

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Function ArrayInit(vArr) As Boolean
   On Error Resume Next
        If Not IsArray(vArr) Then
            GoTo Handler
        ElseIf IsError(UBound(vArr)) Then
            GoTo Handler
        ElseIf (UBound(vArr) - LBound(vArr) + 1 < 0) Then
            GoTo Handler
        End If
        ArrayInit = True
Handler:
    On Error GoTo 0
End Function



хотя отрицательные массивы имхо какая-то непонятная наркомания..
...
Рейтинг: 0 / 0
05.08.2015, 20:07
| Ответить | Цитировать | Написать  
52 сообщений из 52, показаны все 3 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dim a1() vs Dim a2
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2155838]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 82ms
get tp. blocked users:
 1ms
others: 317ms
total:  505ms
созд. / загр.: 505ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]