topic-1983

Board index FiveWin for Harbour/xHarbour How ADD DATA in CLASS

mauricioajordao

Posts: 78

Joined: Fri Dec 02, 2005 06:55 PM

How ADD DATA in CLASS
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

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

How ADD DATA in CLASS
Posted: Wed Mar 01, 2006 07:29 AM

Mauricio,

Code: Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

mauricioajordao

Posts: 78

Joined: Fri Dec 02, 2005 06:55 PM

How ADD DATA in CLASS
Posted: Wed Mar 01, 2006 09:49 AM

Than you , Antonio...

Mauricio
(Brasil)

FiveTech Support Forums

Continue the discussion