Раздвинуть массив

[Inferno]

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

'
.....

Private Element() as long
.....

Public Function Add(ByVal InsertValue As Long, Optional Index = -1) As Boolean
'массив пуст
If UBound(Element) = 0 Then
   ReDim Element(1)
   Element(0) = InsertValue
   Add = True
   Exit Function
End If


'добавление в конец
If Index < 0 Or Index >= UBound(Element) Then
   HmemLow = LocalAlloc(LMEM_ZEROINIT, UBound(Element) * 4)
   CopyMemory HmemLow, Element(0), UBound(Element) * 4
   ReDim Element(UBound(Element) + 1)
   CopyMemory Element(0), HmemLow, (UBound(Element) - 1) * 4
   Element(UBound(Element) - 1) = InsertValue
   LocalFree (HmemLow)
   Add = True
   Exit Function
End If
........

end function



Добавление в массив 3 элементов просходит безболезненно, на 4 выбивает вб. Подскажите что я делаю не так?

[codemaster]

[quote="Inferno"]

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

'
'массив пуст
If UBound(Element) = 0 Then
   ReDim Element(1)


1. Дорога в никуда - 100% ошибка


2. проще пользовать ReDim Preserve Element(n)

[Inferno]

1. Дорога в никуда - 100% ошибка
2. проще пользовать ReDim Preserve Element(n)

Перый пункт нопонятен, почему ошибка если массив еще не инициализирован?

За ReDim Preserve- спасибо.

[GSerg]

Потому что если массив не инициализирован, ubound на нём вызовет исключение out of bounds.

Коллекцию тебе не проще будет использовать?

[Inferno]

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

[Andrey Fedorov]

Не знаю про какие исключения вы говорите, но у меня работает

Значит у тебя где-то перед этим кодом On Error Resume Next стоит. Закоментируй ее и увидишь ошибку.

Ну раз говорите что ошибка, значит заведу еще одну переменную
Проще, но у же не интересно

Так можно определить в любом случае, без натыкания на ошибку:

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

Public Function UboundArray(ArrayName As Variant, Optional Dimension As Integer = 1) As Long
    If Dimension < 1 Or Dimension > GetArrayDimensions(ArrayName) Then
        UboundArray = -1
    Else
        UboundArray = UBound(ArrayName, Dimension)
    End If
End Function

Public Function GetArrayDimensions(arr As Variant) As Integer
    Dim a As Long

    CopyMemory a, ByVal VarPtr(arr) + 8, 4
    CopyMemory a, ByVal a, 4
    If a Then CopyMemory GetArrayDimensions, ByVal a, 2
End Function

[Inferno]

Значит у тебя где-то перед этим кодом On Error Resume Next стоит. Закоментируй ее и увидишь ошибку.

Странно - нет у меня перехвата ошибок и тем не менее работает корректно.

[Andrey Fedorov]

Странно - нет у меня перехвата ошибок и тем не менее работает корректно.

Значит массив уже инициализирован

[Inferno]

Вот что значит одну строчку не дописать.
В конструкторе есть строка
Redim Element(0)