>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