| custom_type_variable = не имя Типа, но имя переменной "Своего" типа |
|
Если вы не ознакомились с описанием команды TYPE, вам лучше сделать это перед продолжением работы.
Используйте это для получения следующего объекта из коллекции объектов "Своего" типа. Смотрите пример. Смотрите также: Type, New, Before, First, Last, Each, Insert, Delete. |
|
; Объявляем Тип crafts
Type crafts Field x Field y Field dead Field graphic End Type ; Создаём 100 crafts, с уникальными данными For t = 1 To 100 alien.crafts = New crafts alien\x = Rnd(0,640) alien\y = Rnd(0,480) alien\dead = 0 alien\graphic = 1 Next ; Получаем первый элемент alien.crafts = First crafts Print alien\x Print alien\y Print alien\dead Print alien\graphic ; получаем следующий объект alien = After alien Print alien\x Print alien\y Print alien\dead Print alien\graphic ; получаем последний объект alien.crafts = Last crafts Print alien\x Print alien\y Print alien\dead Print alien\graphic ; получаем предшествующий последнему элемент alien = Before alien Print alien\x Print alien\y Print alien\dead Print alien\graphic |