Define a User-Defined Data Type (UDT), containing one or more member elements.
TYPE MyType [BYTE | WORD | DWORD]
[STATIC] [MemberName AS TypeName]
[STATIC] [MemberArrayName[(nElements)] AS TypeName]
TYPE definitions may optionally specify an alignment of BYTE (the default), WORD, DWORD
|•||BYTE: each member will be aligned on a BYTE boundary - no padding or alignment is applied to the structure. This is the default alignment method.|
|•||WORD: each member will be aligned on a WORD boundary. Any odd byte between members of TYPE will be automatically skipped and ignored.|
The UDT structure is also padded with one trailing byte to ensure the total structure size is a multiple of 2 bytes.
|•||DWORD: each member will be aligned on a DWORD boundary. Up to three bytes will be skipped to accomplish this alignment.|
The UDT structure is also padded with up to three trailing bytes to ensure the total structure size is a multiple of 4 bytes.
thinBasic support any level of nesting types.
Elements inside a type can be:
|•||numeric (any supported type)|
|•||string (fixed or dynamic strings)|
|•||another type (allowing nesting types inside another one)|
To indicate a fixed string as UDT element use the following notation:
DynStr As String * StringSizeInBytes
To indicate a dynamic string as UDT element use the following notation:
DynStr As String
A dynamic string is represented inside an UDT as 32bit number so it will occupy only 4 bytes regardless of its size.
thinBasic will take care of memory allocation and de-allocation of dynamic strings.
A VARIANT element will always occupy 16 bytes.
static elements are elements in common to all UDT variables derived from the same UDT TYPE.
They are not part of the UDT structure itself but are available to all UDT of the same type.
Static variables retain their values as long as the program is running.
x As Long
y As Long
w As Long
h As Long
Val1 As Integer
Val2 As Long
Val3 As String * 255
dynStr As String PTR '---Dynamic string
Val4 As EXT
Re As MyRect '---Note, a type inside a type
Val5 As QUAD
Val7 As Double
Dim Info As MyData
Info.Val1 = 10
Info.Re.x = 20
MSGBOX 0, Info.Val1 & "-" & Info.Re.x