Dynamic Arrays in User Defined Types

[lkd85]

Dynamic strings are allowed, but dynamic arrays aren't. The easiest work around is to use a pointer array. This is how C/C++ does it.

Code:

TYPE SomeType
     Description AS STRING
     Age         AS LONG
END TYPE

TYPE DynamicStructure
     SomeNumber  AS LONG
     SomeName    AS STRING
     SomeArray AS SomeType Ptr
END TYPE

Sub Main
Dim test As DynamicStructure

numstructs = 7
test.SomeArray = Allocate(numstructs * Len(SomeType))

For i = 0 To numstructs - 1
    test.SomeArray[i].Description = "" 'Null Dynamic String First!
Next i

test.SomeArray[2].Description = "Drug Dealer"
test.SomeArray[2].Age = 87

For i = 0 To numstructs - 1
Print test.SomeArray[i].Description, test.SomeArray[i].Age
Next i

End Sub

Main

Sleep