Como saber si un Method existe en la clase

[Ruben Dario]

Saludos al Forun
Tengo 2 preguntas
1.
Como saber si un Method existe en la clase
2.
Como saber si un Function existe.

[alxsts]

Olá!

Como saber si un Method existe en la clase

Código: Selecionar todos

Function Main()

LOCAL oObj := SomeClass():new()

   Setmode(25,80)

   If __objHasMethod( oObj, "SomeMethod" )
      hb_Alert( "Método existe" )
   Else
      hb_Alert( "Método não existe" )
   Endif

RETURN NIL

Como saber si un Function existe.

Código: Selecionar todos

Function Main()

   Setmode(25,80)
   cls

   If Type( "TestFunc()" ) == "UI"
      hb_Alert( 'Funcão "TestFunc()" existe' )
   Else
      hb_Alert( 'Funcão "TestFunc()" nao existe' )
   EnDif

   If Type( "xpt()" ) == "UI"
      hb_Alert( 'Funcão "xpt()" existe' )
   Else
      hb_Alert( 'Funcão "xpt()" não existe' )
   EnDif

RETURN NIL

FUNCTION TestFunc()

RETURN NIL

[Ruben Dario]

Muchas Gracias Funciono

[Itamar M. Lins Jr.]

Ola!

Código: Selecionar todos

>hbmk2 -find hb_isfunc
Núcleo Harbour (instalado):
   hb_IsFunction()

 IF hb_IsFunction( "dbRelation" ) 

Núcleo Harbour (instalado):
   HBProfileMethod()
   hb_MethodName()
   __objAddMethod()
   __objDelMethod()
   __objGetMethodList()
   __objHasMethod()
   __objModMethod()

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

O tópico "Ayuda con esta clase" tem mais informações.