Как работать с Типами

Код:


Type Monstr ; Создаю тип Monstr
  Field number ; Создаю в списке элемент number (номер)
End Type

; Дальше создаю 10 объектов типа Monstr и присваиваю им номера
For i=0 to 10
  enemy.Monstr = New Monstr
  enemy\number = i
Next

; А теперь, собственно то, что меня больше всего интересует
; Как во FreeBasic обращаться ко всем элементам одного типа???
For enemy.Monstr = Each Monstr
  enemy\number = enemy\number +1
Next

End


Код:


 Type Monster                                              ' Тип Monster
    Dim Number as uinteger
    Dim NextMonster as Monster Ptr                  'Создаем указатель на следующий объект
      Declare constructor ()                              ' Объявление конструктора объекта
 End Type

constructor Monster()
    NextMonster=0                               
/'благодря этому,при появлении нового объекта
NextMonster всегда будет равен нулю
'/
End Constructor
dim FirstMonster as Monster ptr =New Monster    'создаем первый объект и  получаем ссылку на него
Enemy.Monster= FirstMonster                          /' это для счетчика, потому, что после первого цикла указатель
  на первый элемент списка не сохранится
'/
  for i=0 to 10
 Enemy.Monster->Number =i
 /'присваиваем номер; если Enemy.monster - указатель на объект, то
 к полям обращаемся через "->", иначе через "."'/

 Enemy.Monster->NextMonster=New Monster
 /'создаем новый объект; указатель на него,помещаем в NextMonster,
 таким образом мы сможем пройти по списку'/

 Enemy.Monster= Enemy.Monster->NextMonster
  next

do
FirstMonster->Number+=1 'увеличиваем номер
FirstMonster= FirstMonster->NextMonster  ' идем дальше по списку
loop while FirstMonster        'делать пока есть указатели на объекты, иначе в FirstMonster ноль и происходит выход из цикла



Саня пишет:вроде как-то так:

Код:


 Type Monster                                              ' Тип Monster
    Dim Number as uinteger
    Dim NextMonster as Monster Ptr                  'Создаем указатель на следующий объект
      Declare constructor ()                              ' Объявление конструктора объекта
 End Type

constructor Monster()
    NextMonster=0                               
/'благодря этому,при появлении нового объекта
NextMonster всегда будет равен нулю
'/
End Constructor
dim FirstMonster as Monster ptr =New Monster    'создаем первый объект и  получаем ссылку на него
Enemy.Monster= FirstMonster                          /' это для счетчика, потому, что после первого цикла указатель
  на первый элемент списка не сохранится
'/
  for i=0 to 10
 Enemy.Monster->Number =i
 /'присваиваем номер; если Enemy.monster - указатель на объект, то
 к полям обращаемся через "->", иначе через "."'/

 Enemy.Monster->NextMonster=New Monster
 /'создаем новый объект; указатель на него,помещаем в NextMonster,
 таким образом мы сможем пройти по списку'/

 Enemy.Monster= Enemy.Monster->NextMonster
  next

do
FirstMonster->Number+=1 'увеличиваем номер
FirstMonster= FirstMonster->NextMonster  ' идем дальше по списку
loop while FirstMonster        'делать пока есть указатели на объекты, иначе в FirstMonster ноль и происходит выход из цикла