* Как создать массив полу-определенного типа данных * Программа * Код: * Fmain.class * CCar.class * Исходник





Как создать массив полу-определенного типа данных

Каждый массив имеет определенный тип данных.
Если вы определяете класс, этот класс подобен типу данных, а объект этого класса получает этот тип данных.
Вы можете создать массив в который вы можете положить объекты вашего класса, чтобы это сделать, определите массив подобно этому:
var_name AS Object[]

Программа

При старте три объекта класса CCar создаются (как образцы) конструктором.
Объекты добавляются в массив.
Если вы щелкните по клавише, отобразится производитель (brand) каждого объекта.

Код:

Fmain.class

$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

CCar.class

Исходник

Download