Objects y la Herencia Multiple, como?
Posted: Tue Aug 05, 2008 4:38 pm
Despues de revisar los fuentes de harbour referente a objects y no teniendo la capacidad para poder entender. recurro a uds. si es que alguien me puede orientar sobre la herencia multiple.
Tengo este codigo
Lo que quiero hacer es que la clase TData se comporte de acuerdo a cierta circunsancia como la clase padre TDatabase o la clase TRs o la clase TMysql, esto lo defino en la classdata cParent.
Siguiendo el Ng de Objects de Clipper, sobre herencia multiple, he tratado de hacer esto:
Pero tengo errores al quere compilar.
Es posible hacer esto?.
O como se puede hacer para que una clase hija se comporte como una determinada clase padre cuando se tiene herencia multiple.
Saludos y gracias
Tengo este codigo
- Code: Select all Expand view
CLASS TData FROM TDataBase, TRs, TMySql
CLASSDATA cParent INIT 'TDATABASE'
ENDCLASS
CLASS TRs
METHOD New()
METHOD Open()
...(etc)
ENDCLASS
CLASS TMySql
METHOD New()
METHOD Open()
...(etc)
ENDCLASS
Lo que quiero hacer es que la clase TData se comporte de acuerdo a cierta circunsancia como la clase padre TDatabase o la clase TRs o la clase TMysql, esto lo defino en la classdata cParent.
Siguiendo el Ng de Objects de Clipper, sobre herencia multiple, he tratado de hacer esto:
- Code: Select all Expand view
CLASS TData FROM TDataBase, TRs, TMySql
CLASSDATA cParent INIT 'TDATABASE'
METHOD New() INLINE Super( ::cParent ):New()
// o tambien
METHOD Open() INLINE ::Super( ::cParent ):Open()
...(etc)
ENDCLASS
Pero tengo errores al quere compilar.
Es posible hacer esto?.
O como se puede hacer para que una clase hija se comporte como una determinada clase padre cuando se tiene herencia multiple.
Saludos y gracias