Histórico da Página

class classA from LONGNAMECLASS 
data fcA1 
data fnA2 
data flA3 
data fdA4 
data faA5

method new(c,n,l,d,a) constructor 
method exibeA() 
method exibeB() 
endclass

method new(c,n,l,d, a) class classA 
fcA1 := c 
fnA2 := n 
flA3 := l 
fdA4 := d 
faA5 := a
return

method exibeA() class classA 
varinfo("fcA1", fcA1) 
varinfo("fnA2", fnA2) 
varinfo("flA3", flA3) 
varinfo("fdA4", fdA4) 
varinfo("faA5", faA5)
return

method exibeB() class classA 
conout("fcA1", fcA1) 
conout("fnA2", fnA2) 
conout("flA3", flA3) 
conout("fdA4", fdA4)
return

user function tstcls()
Local oObj := classA():New() 
varinfo( "1", AttIsMemberOf(oObj , "xuxu") ) // false
varinfo( "2", AttIsMemberOf(oObj , "fdA4") ) // true
varinfo( "3", MethIsMemberOf(oObj , "exibeA") ) //true
varinfo( "4", MethIsMemberOf(oObj , "exibeB") ) //true
varinfo( "5", MethIsMemberOf(oObj , "exibeC") ) //false
return