Page 1 of 1

Nueva DATA en runtime?

Posted: Thu Aug 26, 2010 10:31 am
by FiveWiDi
Hola a todos,

Es posible añadir en tiempo de ejecución una nueva data a una CLASE (no a un objeto), para que los objetos creados a partir de ella la tengan?

Vamos, algo así como:

AddDataInclass( "MICLASE", "LaData")

(No se rían mucho si he dicho una gilipollez, aún no he tenido tiempo de pensarlo con tranquilidad)

Un saludo
Carlos G.

Re: Nueva DATA en runtime?

Posted: Thu Aug 26, 2010 11:25 am
by SantaCroya
Esta funcion de Harbour añade una data a un objeto:

__objAddData( <oObject>, <cDataName> ) --> oObject

Re: Nueva DATA en runtime?

Posted: Thu Aug 26, 2010 11:49 am
by FiveWiDi
SantaCroya wrote:Esta funcion de Harbour añade una data a un objeto:

__objAddData( <oObject>, <cDataName> ) --> oObject

Muchas gracias,

no es exacatamente lo que quería pero me servirá:

Code: Select all

FUNCTION uAddDataInObj( oObject, cDataName, uElvalor )
 __objAddData( oObject, cDataName )
oObject:cDataName := uElvalor
Return "Ea!, me lo como con patatas."
:)

Saludos y gracias
Carlos G.

Re: Nueva DATA en runtime?

Posted: Thu Aug 26, 2010 5:59 pm
by andresreyes_mzt
FiveWidi,

Para que realmente Funcione tu ejemplo,
necesitas cambiar la siguiente linea

Code: Select all

oObject:cDataName := uElvalor
 
por

Code: Select all

__objSendMsg( oObject, "_" + cDataName, uElvalor )
 
Saludos,
Andres Reyes

Re: Nueva DATA en runtime?

Posted: Fri Aug 27, 2010 8:28 am
by FiveWiDi
Cierto, muchas gracias,

Un Saludo
Carlos G.