Executa um bloco de códigos

Exemplo da Rotina:

EVal([Bloco de Código])

Exemplo 1- Executando um bloco comum:

bBloco := {|| Alert("Teste")}

EVal(bBloco)

Exemplo 2- Executando um bloco com passagem de parâmetro:

bAoQuadrado := { | nValor | nValor * nValor, Alert("Valor ao quadrado: " + cValToChar(nValor)) }

EVal(bAoQuadrado, 5)

Exemplo 3- Executando um bloco com teste lógico se deu certo:

bCondicao := {|| TAB->CAMPO >= '000001' .And. ! TAB->(EoF())}

//Se a execução do bloco deu certo
If EVal( bCondicao ) 
	//...
EndIf

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

• TDN