Página 1 de 1
Ayuda con esta clase
Enviado: 09 Mar 2020 16:56
por 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
Ayuda con esta clase
Enviado: 09 Mar 2020 18:47
por alxsts
Ayuda con esta clase
Enviado: 10 Mar 2020 09:00
por bencz
Você quer criar classes em tempo de execução ?
Ayuda con esta clase
Enviado: 10 Mar 2020 09:14
por 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