' Gambas class file
arCar AS Object[]
blue AS CCar
green AS CCar
PUBLIC SUB _new()
blue = NEW CCar("blueCar", 300, 400.34)
green = NEW CCar("greencar", 100, 200.45)
arCar = NEW Object[]
arCar.Add(blue)
arCar.Add(green)
END
PUBLIC SUB Button1_Click()
i AS Integer
txt AS String
FOR i = 0 TO 1
txt = txt & arCar[i].getBrand() & "
"
NEXT
TextLabel1.Text = txt
END
-- JochenGeorges - 28 Dec 2004