In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

READONLY em OOP (POO)

Foro público de Xailer en español
Avatar de Usuario
Marcelo Coelho Silva
Mensajes: 269
Registrado: Sab May 31, 2008 4:49 pm
Ubicación: Brasil
Contactar:

READONLY em OOP (POO)

Mensaje por Marcelo Coelho Silva »

Senhores,
Sendo:
>> PAI.PRG
Class PAI
DATA variavel INIT 0 READONLY
EndClass
>> FILHO.PRG
Class FILHO From PAI
EndClass
Observamos:
Se Tentamos,
oObjeto := PAI():New()
oObject:variavel := 1 // apresenta erro de READONLY
Porem, se Tentarmos,
oObjeto := FILHO():New()
oObject:variavel := 1 // NíƒO apresenta erro de READONLY
Ou seja, a Classe FILHO, não esta herdando o atributo READONLY da Classe
PAI.
Alguém poderia de auxiliar como fazer esta herança funcionar ???
Desde já agradeço,
Obrigado,
Marcelo Coelho Silva,
Brasil.
Att.

Marcelo Coelho Silva
Brasil.
Responder