Type TEltern
    Field Vater$, Mutter$
End Type

Type TKinder
    Field Name$
    ;* Hier drin wird gespeichert, wer die Eltern sind:
    Field Eltern.TEltern
End Type

;* Nach dem Erstellen der Eltern, wird den Kindern mitgegeben,
;* zu welchen Eltern sie gehören.
Local Simpsons.TEltern = Eltern_Create("Homer", "Marge")
Local Bart.TKinder = Kinder_Create("Bart", Simpsons)
Local Lisa.TKinder = Kinder_Create("Lisa", Simpsons)
Local Maggie.TKinder = Kinder_Create("Maggie", Simpsons)

Local Flanders.TEltern = Eltern_Create("Ned", "Maude")
Local Rod.TKinder = Kinder_Create("Rod", Flanders)
Local Todd.TKinder = Kinder_Create("Todd", Flanders)

Familien_Info(Flanders)
Familien_Info(Simpsons)

Waitkey()
End

Function Eltern_Create.TEltern(fV$, fM$)
    Local e.TEltern = New TEltern
    e\Vater$ = fV$
    e\Mutter$ = fM$
    Return e
End Function

Function Kinder_Create.TKinder(fname$, fE.TEltern)
    Local k.TKinder = New TKinder
    k\Name$ = fname$
    k\Eltern = fE
    Return k
End Function

Function Familien_Info(E.TEltern)
    Local k.TKinder
    Print(E\Vater+" und "+ E\Mutter+" haben zusammen diese Kinder:")
    ;* Um nun die passenden Einträge in allen TKinder zu finden, müssen alle
    ;* Type-Einträge durchgegangen werden. Erst wenn die gesuchten Eltern
    ;* gefunden wurden, arbeiten wir damit:
    For k = Each TKinder
        If k\Eltern = E Then
            Print(k\Name)
        Endif
    Next
    Print("------------")
End Function