Testar se um DATA existe em um objeto

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Shark
Usuário Nível 1
Usuário Nível 1
Mensagens: 28
Registrado em: 25 Set 2017 21:42
Localização: Brasília - DF

Testar se um DATA existe em um objeto

Mensagem por Shark »

Nobres colegas...

Preciso testar se um METHOD ou um DATA existe em um OBJETO.
A exemplo, preciso saber se um OBJETOo criado com a classe TRadMenu possuiu o DATA "bValid".

Algo tipo assim:

IF VALTYPE( "oRad:bValid" ) == "B"

Alguém sabe como fazer?
Shark
Usuário Nível 1
Usuário Nível 1
Mensagens: 28
Registrado em: 25 Set 2017 21:42
Localização: Brasília - DF

Testar se um DATA existe em um objeto

Mensagem por Shark »

Estou quebrando o galho com o código abaixo:

Código: Selecionar todos

IF ASCAN( __objGetValueList( oObj ), {|x| UPPER( ALLTRIM( x[1] ) ) == "BVALID" } ) > 0
   oObj:bValid := NIL
ENDIF
Se alguém souber de uma função mais básica, informe. Obrigado.
cnavarro
Usuário Nível 2
Usuário Nível 2
Mensagens: 52
Registrado em: 28 Set 2017 14:16
Localização: Spain

Testar se um DATA existe em um objeto

Mensagem por cnavarro »

Responder