SuperStrict

Type TMain
   
   Const _numsubs:Int = 2   'wieviele Subtypen gibt es
   Const _SUBFOO:Int = 0   'nummern der Einzelnen Typen
   Const _SUBBAR:Int = 1   'dito
   Global _arrlists:TList[_numsubs]
   
   Method New()
      DebugLog "TMain Constructor called."
      For Local i:Int = 0 Until _numsubs   'Die Listen werden bei der ersten Benutzung initialisiert
         If _arrlists[i] = Null
            _arrlists[i] = New TList
         End If
      Next
   End method

End Type

Type TFoo Extends TMain
   
   Method New()
      DebugLog "TFoo Constructor called."
      _arrlists[_SUBFOO].addlast(Self)
   End Method
   
   Function Print()
      .Print "~nListing all TFoo Instances:"
      For Local foo:TFoo = EachIn _arrlists[_SUBFOO]
         .Print "TFoo Instance"
      Next
   End Function
End Type

Type TBar Extends TMain
   
   Method New()
      DebugLog "TBar Constructor called."
      _arrlists[_SUBBAR].addlast(Self)
   End Method

End Type

'so, wir erstellen ein paar Instancen:
For Local i:Int = 0 To 5
   New TFoo
   New TBar
Next