indexing types

Blitz3D Forums/Blitz3D Programming/indexing types

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Craig H. Nisbet
 #1
What!!! of course you can do that!!

MaxBoobs = 20

Type boobs
field Size
field id
end type

Dim BoobList.boobs(MaxBoobs)

for B = 1 to MaxBoobs
booblist(B) = new boobs
booblist(B)\Size = B * 10
booblist(B)\id = B ;not needed, but handy
next

;Usage

Index = 5
MyBoobs.boobs = booblist(Index)
print MyBoobs\Size
pring MyBoobs\ID