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.







No hay comentarios:

Publicar un comentario

Android y Git. Disponer del hash automáticamente.

Una de las cosas a las que estoy acostumbrado, es tener siempre en mi código, el hash/tag/versión del control de versiones que estoy usan...