Global List:TList = New TList

Type TTest
   Field Name:String
End Type

For Local I:Int = 0 To 99
Local T:TTest = New TTest
T.Name = "TestType"+I
List.Addlast(T)
Next

Local Temp:TTest = TTest(List.Valueatindex(45))

Print "Type 45 = " + Temp.Name

Global List:TList = New TList
Global anzahl

Type Obst
   Field Name:String
End Type

Global apfel:Int=Create("Ein Apfel")
Global birne:Int=Create("Eine Birne")
Global banane:Int=Create("Eine Banane")
Global melone:Int=Create("Eine Melone")

Print Draw(banane)

Function Draw:String(id:Int)
   Local t:Obst = Obst(List.Valueatindex(id))
   Return t.Name
End Function

Function Create:Int(text:String)
   Local T:Obst = New Obst
   T.Name = text
   List.Addlast(T)
   anzahl:+1
   Return anzahl-1
End Function

Type Obst
  Field Name:String

  Method Draw()
    DrawText Name, 10, 10
  End Method
End Type

Type Apfel Extends Obst
  Method New()
    Name = "Apfel"
  End Method
End Type

Type Birne Extends Obst
  Method New()
    Name = "Birne"
  End Method
End Type

Type Banane Extends Obst
  Method New()
    Name = "Banane"
  End Method
End Type

Type Melone Extends Obst
  Method New()
    Name = "Melone"
  End Method
End Type

Local list:TList = new TList
list.AddLast(new Apfel)
list.AddLast(new Birne)
list.AddLast(new Banane)
list.AddLast(new Melone)

'Alle Typen zeichnen
For Local o:Obst = EachIn list
  o.Draw()
Next

'Nur Äpfel zeichnen
For Local a:Apfel = EachIn list
  a.Draw()
Next

...

Global List:TList = New TList
Global anzahl

Type TObst
   Field Name:String

   Function Neu:TObst(Name:String)
    Local T:TObst=New TObst
    T.Name=Name
    List.addlast T
    anzahl=anzahl+1
    Return T
   End Function

   Method Zeigen()
    Print Name
   End Method

End Type

Global apfel:TObst=TObst.Neu("Ein Apfel")
Global birne:TObst=TObst.Neu("Eine Birne")
Global banane:TObst=TObst.Neu("Eine Banane")
Global melone:TObst=TObst.Neu("Eine Melone")

banane.Zeigen