martes, 8 de enero de 2013

Harbour. Methods Init y InitClass


En en lenguaje Harbour, podemos declarar los métodos Init() y InitClass(), 
que serán llamadas implícitamente a la hora de la creación del objeto.


Es decir, partiendo de una clase llamada TPrueba;


CLASS TPRUEBA
      DATA ValueInit
      DATA Value
      METHOD initClass
      METHOD init
ENDCLASS

METHOD initClass( x ) CLASS TPRUEBA
      ::ValueIni := x
RETURN self

METHOD init( x ) CLASS TPRUEBA
      ::value := x
RETURN self


Ejemplo:

objeto  := TPrueba( "ValueInit" ):new( "Value" )
?objeto:ValueInit ,objeto:Value

Ahora, mira los valores de la variable de instancia ValueInit y Value.







GTXSII. Visual Basic .NET

Estamos trabajando muy duro en intentar en soportar más lenguajes de programación para nuestra librería GtxSII, para el Suministro Inmedi...