Nueva DATA en runtime?

[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.

[SantaCroya]

Esta funcion de Harbour añade una data a un objeto:

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

[FiveWiDi]

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.

[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

[FiveWiDi]

Cierto, muchas gracias,

Un Saludo
Carlos G.