O.T. - Equivalente a CLASSDATA en Harbour

[MarioG]

Gente:,
Compilando con Harbour y; en la primer clase llamada al ejecutar la app, tengo definida una CLASSDATA. Esta data no es visible en otras classes que compone la misma app.
Se puede declarar una DATA static o public, como?

[Antonio Linares]

Mario,

Debería ser visible.

Por ejemplo, la Clase TWindow tiene la CLASSDATA lRegistered

Prueba a hacer:

MsgInfo( TWindow():lRegistered )

[MarioG]

Gracias antonio
Me llamó la atención
Reviso mi codigo, algo no estaré haciendo bien

[xmanuel]

Mario.
Es que no tiene que ser visible desde "otras clases" sino desde las clases derivadas de la clase donde se define...
Las CLASSDATA funciona como una DATA static por lo que puede ser llamada como te indica Antonio, simplemente llamando a la función constructora de la clase y enviándole la CLASSDATA o el CLASSMETHOD.
Ideal para crear una clase TUtil por ejemplo y poder hacer TUtil():miMetodo() o TUtil():miData esto evitaría tener que crear un objeto...

[MarioG]

Estimado Manu;
Por si no recordás (por las consultas hechas en ese momento), me inicié en la programación POO leyendo un documento tuyo y otro de Rafa Carmona; que Maestros!
Como buen autodidacta, algunos conceptos quedaron prendidos por hilos
Y como nunca es tarde para aprender... seguiré estudiando

gracias!

[xmanuel]

Claro que sí Mario...
Al menos, a mí, me tienes para cualquier duda que quieras resolver en cualquier momento, a estas alturas y después de lo que hemos pasado, te considero un AMIGO

Las CLASSDATAs son DATAS estáticas para la jerarquía de clases, esto quiere decir que el valor que le asignes a esa DATA en una instancia de una clase de la jerarquía (objeto) será visible en el resto de objetos instanciados de esas clases. Imagina esto:

Code: Select all  Expand view  RUN

CLASS TMiCls
  CLASSDATA miData
  ...
END CLASS

// y otra clase derivada o hija

CLASS TMiCls2 FROM TMiCls
...
END CLASS

// y otra
CLASS TMiCls3 FROM TMiCls
...
END CLASS

// o incluso derivada de una hija

CLASS TMiCls4 FROM TMiCls2
...
END CLASS

// Se podria hacer esto:

...
local oOb1 := TMiCls1():new()
local oOb2 := TMiCls2():new()
local oOb3 := TMiCls3():new()
local oOb4 := TMiCls4():new()

// Y si se hace esto:

oOb1:miData := "Asignado en obj1"

? oOb1:miData // Sale -> Asignado en obj1

// Pero si hago esto

? oOb4:miData // Sale esto también -> Asignado en obj1

// o esto sin instaciar un objeto

TMiCls():miData  // Sale esto también -> Asignado en obj1

 

Como ves ::miData al ser una DATA estática es visible en cualquier objeto instaciado de una clase de la jerarquía.
Para que ocurra que una CLASSDATA fuera visible en cualquier objeto de una aplicación tendrías que crear una clase por ejemplo TMiAplicacion con las CLASSDATAS que quieras y que de ahí derivaran todas las clases de tu aplicación.

Saludos amigo Mario
Espero poder ayudarte cuando lo necesites.

PD: Espero poder contar contigo como betatester de HDO. De momento la tengo terminada para SQLite y quiero implememta otro RDL para MySQL. Será bonito desarrollar una aplicación que funcione para cualquier base de datos cambiando sólo el RDL y no tener que tocar ni una letra del código incluso si se programa para ello sin tener que re-compilar la aplicación. Y todo eso con acceso nativo al cliente de la BBDD.

[MarioG]

Estimado Manu;
Te agradezco muchísimo tu predisposición y tiempo. Pero mayormente agradezco que nuestra pasión nos haya convertido en AMIGOS
Viendo tu sencillo ej. concluyo es que mis conceptos no estan alejados; por lo que seguramente, estaré cometiendo algún error.

En cuanto a betatester... acá estoy!

seguimos en contacto...