Type zusatz
   Field zusatz_text:String
EndType

Global a:TList = New TList

Type eintrag

Field Name:String

Field zusatz:zusatz


   Method neuerZusatzEintrag()
      Self.zusatz = New zusatz
      Self.zusatz.zusatz_text = "Test"
   End Method



Function Create:eintrag(name:String)
   Local e:eintrag = New eintrag
      e.name = name
   a.AddLast(e)
   Return e
EndFunction

End Type


ersterName:eintrag = eintrag.Create("Tim")

   For Local g:eintrag = EachIn a
   DebugLog g.name
   Next

'Jetzt speichere Zusätzlich Informationen    
ersterName.neuerZusatzEintrag()