Referência para uma função ou procedimento já existente

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

Moderador: Moderadores

Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Referência para uma função ou procedimento já existente

Mensagem por asimoes »

Olá Pessoal,

Achei essa informação interessante.

Alguém sabe como é a sintaxe de uso deste POINTER

pNome := @NomeDaFuncao()
pFuncao := @Int()
►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)
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Referência para uma função ou procedimento já existente

Mensagem por asimoes »

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)
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Referência para uma função ou procedimento já existente

Mensagem por asimoes »

Outro recurso interessante com codeblock usando :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)
Responder