Динамический тип-массив в VB

[Денис]

Скажите я правильно понимаю, как сделать кальку объявления типа «массив» из Паскаля в бейсик:

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

Private Type TArrayType
  TArray() As Integer
End Type

Sub Form_Load()

Dim arr1 As TArrayType
ReDim arr1.TArray(100)
Dim arr2 As TArrayType

Dim out As Integer

arr1.TArray(50) = 256
arr2 = arr1

out = arr2.TArray(50)

'или

Debug.Print arr2.TArray(50)

End Sub

Может есть другие варианты?

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

[Денис]

Ап!
Мне действительно интересно! А многомерные динамические массивы так же создаются?

Вот

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

Private Type Point3D
    X() As Single
    Y() As Variant
    Z() As Single
End Type

Sub Main()

Dim MyPnt As Point3D
Dim i As Integer

ReDim MyPnt.X(1 To 3)
ReDim MyPnt.Y(1 To 3)
ReDim MyPnt.Z(1 To 3)

For i = 1 To 3
    MyPnt.X(i) = i
Next

MyPnt.Y = Array(0, 10, 20, 30)

For i = 1 To 3
    MyPnt.Z(i) = i * 100
    Debug.Print MyPnt.X(i), MyPnt.Y(i), MyPnt.Z(i)
Next

End Sub

Но обращение корявое, не как к массиву, а как к структуре, что есть криво.
Хм, вообще, что есть массив? Просто функция одной или более аргументов... Но если и написать такую функцию, то ведь она 100 пудов будет занимать в десять раз больше памяти, чем несколько одномерных массивов...

[DirectXManiac]

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

[Andrey Fedorov]

Да практически как угодно можно извращаться:

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

Private Type DateT
     FN As String
     FT As ADODB.DataTypeEnum
     FL As Integer
End Type

Private Type CPoint3D
     F() As Field
End Type

Private Type Point3D
    X() As Single
    Y() As Variant
    Z() As Single
    C() As CPoint3D
End Type

Sub Main()
    Dim MyPnt() As Point3D
    ....