[bb] Arrays of types by Inner [ 1+ years ago ]

[BlitzBot]

Title : Arrays of types
Author : Inner
Posted : 1+ years ago

Description : Many thinks to Rims for helping me debug this.

Code :

Code (blitzbasic) Select Expand

Type TEST
    Field x
    Field y
    Field name$
    Field f#
End Type

Global mine.TEST Dim all_mine.TEST( 100 )

all_mine(0)=New TEST
all_mine(0)x=0
all_mine(0)y=1000
all_mine(0)
ame$="FOO"
all_mine(0)f#=1.68

Print all_mine(0)x
Print all_mine(0)y
Print all_mine(0)
ame$
Print all_mine(0)f#

Delete all_mine(0)

WaitKey
End

Comments : none...