CLASS_FOO=1
CLASS_MOO=2
Type foo
field class:Int
Method New()
class=CLASS_FOO
EndMethod
EndType
Type moo extends foo
field class:Int
Method New()
class=CLASS_MOO
EndMethod
EndType
For foo=eachin something:TList
Select foo.class
Case CLASS_FOO
Case CLASS_MOO
EndSelect
CLASS_MOO=2
Type foo
field class:Int
Method New()
class=CLASS_FOO
EndMethod
EndType
Type moo extends foo
field class:Int
Method New()
class=CLASS_MOO
EndMethod
EndType
For foo=eachin something:TList
Select foo.class
Case CLASS_FOO
Case CLASS_MOO
EndSelect