I search a easy way to know type name wihtout using ToString() generic method ?
This is my last result:
Type TA
EndType
Type TB
EndType
Type TC
EndType
'new object
Local obj:TB=New TB
Print GetTypeName(obj)
'Retrieve type name
Function GetTypeName$(thing:Object)
Select True
Case TA(thing)<>Null
Return "obj - Type A"
Case TB(thing)<>Null
Return "obj - Type B"
Case TC(thing)<>Null
Return "obj - Type C"
EndSelect
EndFunction
My main problem is to register type like that :
Type TZ
EndType
RegisterType(TZ,"obj - type Z")
It's not possible to code that in Bmax
|