Olá Pessoal,
Achei essa informação interessante.
Alguém sabe como é a sintaxe de uso deste POINTER
pNome := @NomeDaFuncao()
pFuncao := @Int()
Referência para uma função ou procedimento já existente
Moderador: Moderadores
Referência para uma função ou procedimento já existente
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Referência para uma função ou procedimento já existente
Achei nos meus testes como fazer:
Código: Selecionar todos
pFuncao := @Int()
? pFuncao:eval( 123.45 )
//Ou
? pFuncao:exec( 123.45 )
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Referência para uma função ou procedimento já existente
Outro recurso interessante com codeblock usando :eval
bBlock:={||hwg_MsgInfo("","")}
bBlock:Eval()
bBlock:={||Alert(Str(10.1)), Alert(Str(10.2))}
bBlock:Eval()
bBlock:={||hwg_MsgInfo("","")}
bBlock:Eval()
bBlock:={||Alert(Str(10.1)), Alert(Str(10.2))}
bBlock:Eval()
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
