Como saber si es clase hija?

[quique]

Como puedo saber si una clase es hija de otra?

Code: Select all  Expand view  RUN

#include "hbclass.ch"

function main()
  local oCuatro := cuatro():new()
  local oCinco  := cinco():new()

  ? esDe( oCuatro, "uno" )   // Es hija de la clase uno
  ? esDe( oCinco , "dos" )   // Es hija de la clase dos
return nil

class uno
endclass

class dos
endclass

class tres from uno
endclass

class cuatro from tres
  method new inline self
endclass

class cinco from uno,dos
  method new inline self
endclass


[Antonio Linares]

Quique,

oCuatro:IsDerivedFrom( Uno() )

[quique]

gracias