How ADD DATA in CLASS

[mauricioajordao]

Hi Friends ,

How ADD DATA In CLass ?


CLASS TESTE
DATA XXXX -> ADD class in CREATE class.
METHOD NEW(X,Y)
ENDCLASS

METHOD new(x,Y) CLASS TESTE

*** HOW ADD DATA THIS CLASS IS HERE ****


rETURN(NIL)


thanks

[Antonio Linares]

Mauricio,

Code: Select all  Expand view

...
#include "hboo.ch"

METHOD new(x,Y) CLASS TESTE

   static lAdded := .f.

   ASize( Self, Len( Self ) + 1 )  // add one more element for the new DATA

   if ! lAdded
      __clsAddMsg( ::ClassH, "Another", Len( Self ), HB_OO_MSG_DATA )
      __clsAddMsg( ::ClassH, "_" + "Another", Len( Self ),  HB_OO_MSG_DATA )
      lAdded = .t.
   endif

   ...

return Self


[mauricioajordao]

Than you , Antonio...



Mauricio
(Brasil)