Dynamic Arrays in User Defined Types

[lkd85]

Yep.

Code:

TYPE SomeType
     Description   AS STRING
     ItsID         AS LONG
END TYPE

TYPE DynamicType
     Name          AS STRING
     Number        AS LONG
     DynamicPart   AS SomeType PTR
END TYPE

TYPE CombinedType
     SomeNumber    AS LONG
     SomeName      AS STRING
     WeirdPart     AS DynamicType PTR
END TYPE

Sub Main
Dim ct As CombinedType

numdt = 9
ct.WeirdPart = Allocate(numdt * Len(DynamicType))

numst = 7
For i = 0 To numdt - 1
    ct.WeirdPart[i].DynamicPart = Allocate(numst * Len(SomeType))
    For j = 0 To numst - 1
        ct.WeirdPart[i].DynamicPart[j].Description = ""
    Next j
Next i

With ct.WeirdPart[3]
.DynamicPart[5].Description = "Menace"
.DynamicPart[2].Description = "Person Unknown"
Print .DynamicPart[5].Description, .DynamicPart[2].Description
End With

With ct.WeirdPart[7]
.DynamicPart[5].Description = "Goody - Two - Shoes"
.DynamicPart[2].Description = "Apathetic"
Print .DynamicPart[5].Description, .DynamicPart[2].Description
End With

End Sub

Main
Sleep