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
How ADD DATA in CLASS
-
- Posts: 78
- Joined: Fri Dec 02, 2005 6:55 pm
- Location: brazil
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
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
-
- Posts: 78
- Joined: Fri Dec 02, 2005 6:55 pm
- Location: brazil