>Hello,
>
>When testing parameters given to a function, I was wondering if there was a simple way to test whether an object x is an instance of a custom class A when inheritance is involved.
>For example, class A inherits from Custom, class B inherits from class A, class C inherits from class B and I want to test object x so that it would answer indifferently yes whether the Class property of x is A, B or C. Unfortunately with the ParentClass property I can recurse only up one level.
>Said otherwise, I would need is to construct is a function InstanceOf(oObject,cClassName), returning .T. if and only if the class of oObject is cClassName or one of its subclasses.
>
>Thank you for your help,
>
>David
You mean aclass()?
Local o,ix
o = CreateObject('myD')
For ix = 1 to AClass(aHierarchy,o)
? aHierarchy[m.ix]
endfor
Define Class myA as Custom
EndDefine
Define Class myB as myA
EndDefine
Define Class myC as myB
EndDefine
Define Class myD as myC
EndDefine
Cetin