FiveTech Software tech support forums

Posted: **Tue Feb 28, 2006 11:11 pm**

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

Posted: **Wed Mar 01, 2006 7:29 am**

Mauricio,

Code: Select all

...
#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

Posted: **Wed Mar 01, 2006 9:49 am**

Than you , Antonio...

Mauricio
(Brasil)

FiveTech Software tech support forums

How ADD DATA in CLASS

How ADD DATA in CLASS