import.css=/download/attachments/6062824/tecnologia.css |
Indica se uma propriedade informada através de uma string por parâmetro existe na classe.
AttIsMemberOf( < oObj >, < cAttName >, [ lRecursive ] ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
oObj | objeto | Indica o objeto que representa a instância da classe a ser pesquisada. | X |
|
cAttName | caractere | Indica o nome da propriedade a ser pesquisada. | X |
|
lRecursive | lógico | *Indica se as classes superiores também devem ser pesquisada, caso a instância atual possua herança. ( Default = .F. ) |
|
|
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna verdadeiro (.T.), se a propriedade for encontrada; caso contrário, falso (.F.). |
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 |