TypeOf()

OutputVar := instance.TypeOf(obj)

TypeOf(obj)

Returns the type of the given Object

Parameters

obj

The object to get the type of

Returns

Returns string var containing info about the object.

Remarks

Static method

Attempts to return class name of objects that are of type class. Non-MfObject are supported with this method. Non-Object are returned as a formated string such as NonObject value(4).
Objects are are not classes return as value of Object or other culture aware string.
Objects that are nested inside other class will return full path.

Example

fsf := new Foo.SubFoo()
MsgBox % MfType.TypeOf(fsf) ; displays Foo.SubFoo

MsgBox % MfType.TypeOf(fsf) ; displays Foo.SubFoo
MsgBox % MfType.TypeOf(Foo.SubFoo) ; displays Foo.SubFoo
myStr := "Hello World"
MsgBox % MfType.TypeOf(myStr) ; displays NonObject value(Hello World)
MyChar := new MfChar("@")
MsgBox % MfType.TypeOf(MyChar) ; displays MfChar
MsgBox % MfType.TypeOf(4) ; displays NonObject value(4)

MyObj := Object()
MsgBox % MfType.TypeOf(MyObj) ; displays Object

; Create a classes that derives from MfObject

class Foo extends MfObject
{
   m_FooMsg := ""

   __New(msg) {
       base.__New()
       this.m_FooMsg := msg
   }

   GetFoo() {
       if (this.IsInstance()) { ; check to see if class is actual instance
           return this.m_FooMsg
       }
       return "Error: Not an instance"
   }

   class SubFoo extends MfObject
               {
       __New(value) {
           base.__New()
       
           try {
               this.m_stuff := MfBool.GetValue(value)
           } catch e {
               ex := new MfInvalidCastException(MfEnvironment.Instance.GetResourceString("InvalidCastException_ValueToBoolean"), e)
               ex.SetProp(A_LineFile, A_LineNumber, A_ThisFunc)
               throw ex
           }
       }
   
       m_stuff := Null

       IsStuff[]
       {
           get {
               return this.m_stuff
           }
           set {
               ex := new MfNotSupportedException(MfEnvironment.Instance.GetResourceString("NotSupportedException_readonly_Property"))
               ex.SetProp(A_LineFile, A_LineNumber, A_ThisFunc)
               throw ex
           }
       }
   }
}

class Bar extends Foo
{
   m_BarMsg := ""
   __New(msgFoo, msgBar) {
       base.__New(msgFoo)
       this.m_BarMsg := msgBar
   }

   GetFooBar() {
       if (this.IsInstance()) { ; check to see if class is actual instance
           str := this.GetFoo() . ", " . this.m_BarMsg
           return str
       }
       return "Error: Not an instance"
   }

   class SubBar extends MfObject
   {
       m_barStuff := false
   
       IsBarStuff[]
       {
           get {
               return this.m_barStuff
           }
           set {
               try {
                   this.m_barStuff := MfBool.GetValue(value)
               } catch e {
                   ex := new MfInvalidCastException(MfEnvironment.Instance.GetResourceString("InvalidCastException_ValueToBoolean"), e)
                   ex.SetProp(A_LineFile, A_LineNumber, A_ThisFunc)
                   throw ex
               }
               
           }
       }
   }
}