Vb.Net проверка массива

[Res5]

Собственно данноее условие без оn еrr проверяет имеет ли массив элементы.

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Arr() As Long
        Dim Arr1(20) As Long
        Dim Arr2() As Long



        If Arr Is Arr1 Then
        Else
            MsgBox("массив Arr1 c элементами")
        End If

        If Arr Is Arr2 Then
            MsgBox("массив Arr2 пуст")
        End If




    End Sub

псы ниче подобного не нашел.

[Хакер]

Перенесено и раздела «Алгоритмы» в этот раздел, поскольку описанная информация не имеет алгоритмической составляющей и ценности.

[pronto]

Здесь уже было такое где-то, лень искать источник. Проще достать из своих загашников... Но это для VB6, на .NET не проверял...

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

  Dim a() As Long 'Integer, String ...
 
  If (Not a) = -1 Then
     Debug.Print "массив не инициализирован"
  Else
     Debug.Print "массив инициализирован " & UBound(a)
  End If

  ReDim a(2)
 
  If (Not a) = -1 Then
     Debug.Print "массив не инициализирован"
  Else
     Debug.Print "массив инициализирован " & UBound(a)
  End If

PS После 15 минут поисков по сайту...
Как определить: пуст массив или нет?
Команда UBound

[Qwertiy]

Собственно данноее условие без оn еrr проверяет имеет ли массив элементы.

Ничего не понял. И код тоже не понял. Такое ощущение, что это бред какой-то...

[The trick]

Здесь уже было такое где-то, лень искать источник. Проще достать из своих загашников... Но это для VB6, на .NET не проверял...

После такого кода потом возникают проблемы при работе с вещественными числами, проверяйте через VarPtr

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

Private Sub Form_Load()
    Dim s() As Long, b As Double, q As Double
   
    If Not Not s Then
        Debug.Print "Инициализирован"
    Else
        Debug.Print "Не Инициализирован"
    End If
   
    b = 1 + q   ' Баг? Где? Нажми F5 все нормально, дружище..
End Sub

[pronto]

Хм... Действительно. Раньше такого не замечал (хотя и код этот тоже не приходилось использовать). Себе запомнил, что лучше делать через VarPtr... Кто-нибудь знает причины такой странности?

[Viper]

А arr.Length = 0не проще проверить?

[Qwertiy]

Там где-то Nothing вроде...

[Viper]

Там где-то Nothing вроде...

Тогда сначала проверять на на Nothing, потом длину. А вообще надо проверить скорость работы предложенного метода.

[The trick]

А arr.Length = 0не проще проверить?

Если это мне адресовано, то я писал тот пост как ответ на

Но это для VB6

К VB.NET он никакого отношения не имеет.

[Qwertiy]

то я писал тот пост как ответ на
> Но это для VB6
К VB.NET он никакого отношения не имеет.

Я тоже про Nothing в VB6 писал.
Что за код тут для VB.NET - я вообще не понимаю.

[The trick]

На Nothing нужно проверять объектные переменные. Массивы VB6 не объекты, поэтому проверка на Nothing некоректна и невозможна. Хотя это в принципе тоже самое, если я нечего не путаю. Result = ObjPtr(Obj), тоже самое что и GetMem4 ByVal VarPtr(Obj), Result; так и массив проверить можно GetMem4 ByVal ArrPtr(Ar), Result - тоже самое.

[Qwertiy]

А если в Variant обернуть?
Ну тут была где-то тема про эти проверки...

[The trick]

А если в Variant обернуть?

Что это даст? VarType = возвратит vbArray|vbLong (для Long массива)

[Viper]

В чем великий смысл обсуждения методики применяемой в VB6 в разделе по VB.NET?

[Qwertiy]

В чем великий смысл обсуждения методики применяемой в VB6 в разделе по VB.NET?

Ну пока кто-нибудь не расскажет, что за бред написан в первом посте, кроме методики для VB6 тут обсуждать нечего

[Res5]

В чем великий смысл обсуждения методики применяемой в VB6 в разделе по VB.NET?

Ну пока кто-нибудь не расскажет, что за бред написан в первом посте, кроме методики для VB6 тут обсуждать нечего

Хм че тут бредового? Иногда может понадобитсья инфа пуст ли массив. На основе сравнения с Arr() получаеш инфу о нужном массиве.

[Res5]

Определенно стоит првоерить скорость с on err и моим способом.

[Res5]

А arr.Length = 0не проще проверить?

Компилятор ругается если в массиве не задана размерность "В экземпляре объекта не задана ссылка на объект."

[alibek]

Иногда может понадобитсья инфа пуст ли массив.

Например?

[Res5]

Например если распаковываеш данные.

[alibek]

И для чего при этом знать, пустой массив или нет?

[Qwertiy]

Хм че тут бредового? Иногда может понадобитсья инфа пуст ли массив. На основе сравнения с Arr() получаеш инфу о нужном массиве.

Объясни прям по строчкам, что делает этот код. Затем, в каком случае его надо использовать и как? Это даже не функция проверки, а обработчик кнопки.

"В экземпляре объекта не задана ссылка на объект."

Ну так Nothing же.

[Res5]

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

    Private Function array_is_empty(ByVal Arr() As Integer) As Boolean

        Dim Arr1() As Integer

        If Arr Is Arr1 Then
            Return False
        Else
            Return True
        End If


    End Function

[Qwertiy]

Мне лень проверять. Это не то же самое?

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

Private Function Check(ByVal Arr() As Integer) As Boolean
  Return Arr IsNot Nothing
End Sub

[Res5]

Тоже, запись другая просто.

[Qwertiy]

Ну и зачем городить непонятную функцию, когда всё элементарно проверяется???

[Res5]

Я незнал про существование IsNot и ранее проверял спомщью OnErr

[Viper]

Я незнал про существование IsNot и ранее проверял спомщью OnErr

OnErr тоже наследство из vb6.0, надо пользоваться блокам Try Catch End Try

[strelec]

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

If Obj Is Nothing Then

может так? _)