I want to illustrate my question with the code below;
Code: Select all
CREATE CLASS student
DATA name
DATA age
EXPORT:
METHOD name(cName) INLINE ::getSet("name",cName)
METHOD age(nAge) INLINE ::getSet("age",nAge)
METHOD getSet(xVar,xVal)
ENDCLASS
METHOD init()
::name:=""
::age=:=0
RETURN self
METHOD getSet(xVar,xName)
nPars:=pCount()
do case
case (xVar:=upper(xVar))=="NAME"
if nPars==2
::name:=xVal
endif
return ::name
case xvar=="AGE"
if nPars==2
::age:=xVal
endif
return ::age
endcase
return Nil
getDataFunction(<xVar>)
setDataFunction(<xVar>,<xVal>)
Thank you in advance.