topic-19673

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Nueva DATA en runtime?
Posted: Thu Aug 26, 2010 10:31 AM

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.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

SantaCroya

Posts: 6

Joined: Mon Sep 22, 2008 01:45 PM

Re: Nueva DATA en runtime?
Posted: Thu Aug 26, 2010 11:25 AM

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

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

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Nueva DATA en runtime?
Posted: Thu Aug 26, 2010 11:49 AM

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 (FW): Select all Collapse

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

Saludos y gracias
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

andresreyes_mzt

Posts: 71

Joined: Fri Jan 11, 2008 06:55 AM

Re: Nueva DATA en runtime?
Posted: Thu Aug 26, 2010 05:59 PM

FiveWidi,

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

Code (fw): Select all Collapse

oObject:cDataName := uElvalor

por

Code (fw): Select all Collapse

__objSendMsg( oObject, "_" + cDataName, uElvalor )

Saludos,
Andres Reyes

{{{ ---- xharbour + Borland C --- }}}

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Nueva DATA en runtime?
Posted: Fri Aug 27, 2010 08:28 AM

Cierto, muchas gracias,

Un Saludo
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion