__Obj en Harbour (RESUELTO)

[Compuin]

Saludos

Quien podria indicarme el equivalente de esta estructura en Harbour

Code: Select all

 __objAddData( Self, cName ) 
     oSend(Self,cName,xValue)

Funciona bien en XHarbour

Gracias de antemano

[ruben Dario]

Hola.
A mi me funciona asi.
__objAddData( Self, a )
__objSendMsg( Self, "_" + a , acp )

[Compuin]

Hola.
A mi me funciona asi.
__objAddData( Self, a )
__objSendMsg( Self, "_" + a , acp )

Muchas gracias Ruben,

Como podria ajustarlo en esta funcion? Como me lo indicastes no funciono (trabajo con Harbour 3.2 y BCC7)

Code: Select all

METHOD Set( cName, xValue ) CLASS TPublic

   IF oSend(Self,cName)=NIL
      __objAddData( Self, cName )
   ENDIF

   oSend(Self,cName,xValue)

RETURN Self

Gracias nuevamente

[ruben Dario]

Si trabajo con la misma version.

Podrias ajustarlso asi. te deberia de funcionar.
Estas modificando la Clase TPublic.
Saludos , mira si te funciona que error de da, me comentas o me escribes.

Code: Select all

    METHOD Set( cName, xValue ) CLASS TPublic

       IF oSend(Self,cName)=NIL
          __objAddData( Self, cName )
       ENDIF

       __objSendMs(Self,cName,xValue)

    RETURN Self

 

[Compuin]

Si trabajo con la misma version.

Podrias ajustarlso asi. te deberia de funcionar.
Estas modificando la Clase TPublic.
Saludos , mira si te funciona que error de da, me comentas o me escribes.

Code: Select all

    METHOD Set( cName, xValue ) CLASS TPublic

       IF oSend(Self,cName)=NIL
          __objAddData( Self, cName )
       ENDIF

       __objSendMs(Self,cName,xValue)

    RETURN Self

 

Si, la estoy modificando....tu la usas?

[Compuin]

No funciona....no inicio el ejecutable

Alguna sugerencia?

[ruben Dario]

No.
Pero solamente estas ejecutardo la CLase Tpublic.
Colocalo asi.

__objSendMsg( Self, "_" + cName,xValue )

Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue)
Muestrame como haces el llamado a esta clase.

[Compuin]

No.
Pero solamente estas ejecutardo la CLase Tpublic.
Colocalo asi.

__objSendMsg( Self, "_" + cName,xValue )

Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue)
Muestrame como haces el llamado a esta clase.

Sigue sin funcionar...no declara un array como variable


Ya funciona, solo era cambiarlo asi

Code: Select all

__objSendMsg( Self, "_" + cName,uValue )

Muchas gracias

[ruben Dario]

Tocaria probar la clase que modificaste para ver si es el problema.
Si gustas mandamela yo la reprodusco para ver que pasa.
o muestra el trozo de codigo donde defines el llamado de la clase.
Yo trabajo con Harbur 3.2 y Bcc 7.2 y Fwh 18.2

[ruben Dario]

Bueno ya se soluciono, era que no habias probado con el cambio sugerido.

[Compuin]

Bueno ya se soluciono, era que no habias probado con el cambio sugerido.

Muchas gracias Ruben

Saludos