Ayuda con esta clase

[Ruben Dario]

Saludos al forum

Segun este Ejemplo de dicho codigo , lo tome de los ejemplos de harbour. Using Harbour Class HBClass
s_oClass:AddMethod( "New", @New() )

como lo defino

CLASS TApp01
METHOD EntraDat @EntraDat()


ENDCLASS

[alxsts]

Olá!

Leia o tópico Classes - Harbour - > Declaracao de variaveis. Creio que te ajudará.

[bencz]

Você quer criar classes em tempo de execução ?

[bencz]

Seria isso ?

Código: Selecionar todos

LOCAL oHappy := HBClass():New( "THappy" )
__objAddMethod( oHappy, "Smile", @MySmile() )    // Adiciona um metodo
__objAddData( oHappy, "lHappy" )                 // Adiciona um field ( uma variavel )

oHappy:lHappy := .T.
? CSTR(oHappy:lHappy )     // --> .T.
? oHappy:Smile( 1 )        // --> :)
? oHappy:Smile( 2 )        // --> ;)
? oHappy:Smile( 3 )        // --> *SMILE*

STATIC FUNCTION MySmile( nType )
   IF HB_ISNUMERIC( nType )
      SWITCH nType
      CASE 1 ; RETURN ":)"
      CASE 2 ; RETURN ";)"
      CASE 3 ; RETURN "*SMILE*"
      ENDSWITCH
   ENDIF
   RETURN NIL

As funções que você busca, estão definidas neste arquivo fonte: https://github.com/vszakats/hb/blob/669 ... bjfunc.prg