Solucionado problema con herencia en clases...
Posted: Tue Nov 29, 2005 1:07 am
Hola a todos, gracias a la ayuda de _ y Fernando "Fgondi", logre solucionar mi problema al querer heredar DATAS en las clases que estoy construyendo, era solo de declara "CLASSDATA" las variables que quieron sean heredades con sus valores alterados en la clase principal.
Este es un ejemplo.
Saludos,
Carlos Sincuir
Este es un ejemplo.
Code: Select all
#Include "FiveWin.ch"
//--------------------------------
FUNCTION Main()
Local oApp, oSeg
oApp := TPrincipal():New()
oApp:Ingreso()
? oApp:lIngreso //--------> el resultado es .T.
oSeg := TSegunda():New()
? oSeg:lIngreso //--------> el resultado es .T. "como quería"
RETURN NIL
//--------------------------------
CLASS TPrincipal
DATA cVersion
CLASSDATA lIngreso
METHOD New CONSTRUCTOR
METHOD Ingreso
ENDCLASS
//--------------------------------
METHOD New() CLASS TPrincipal
::lIngreso := .F.
::cVersion := "Versión 1.0.1"
RETURN Self
//--------------------------------
METHOD Ingreso() CLASS TPrincipal
::lIngreso := .T.
RETURN NILCode: Select all
#Include "FiveWin.ch"
//--------------------------------
CLASS TSegunda FROM TPrincipal
METHOD New() CONSTRUCTOR
ENDCLASS
//--------------------------------
METHOD New() CLASS TSegunda
RETURN SelfCarlos Sincuir