* Как создать
массив полу-определенного типа данных * Программа * Код: * Fmain.class * CCar.class * Исходник
Каждый массив имеет определенный тип данных.
Если вы определяете класс, этот класс подобен типу данных, а объект
этого класса получает этот тип данных.
Вы можете создать массив в который вы можете положить объекты вашего
класса, чтобы это сделать, определите массив подобно этому:
var_name AS Object[]
При старте три объекта класса CCar создаются (как образцы)
конструктором.
Объекты добавляются в массив.
Если вы щелкните по клавише, отобразится производитель (brand) каждого
объекта.
$arCar AS Object[]
$blue AS CCar
$red AS CCar
$green AS CCar
STATIC PUBLIC SUB Main()
hForm AS Fmain
hForm = NEW Fmain
hForm.show
END
PUBLIC SUB _new()
$blue = NEW CCar("blueCar", 300, 400.34)
$red = NEW CCar("redCar", 200, 300.56)
$green = NEW CCar("greenCar", 100, 200.34)
$arCar = NEW Object[]
$arCar.Add($blue)
$arCar.Add($red)
$arCar.Add($green)
END
PUBLIC SUB Button1_Click()
i AS Integer
txt AS String
FOR i = 0 TO 2
txt = txt & $arCar[i].getBrand() & "<br>"
NEXT
TextLabel1.Text = txt
END
Download