Eval

Eval( < bBloco >, [ xVariavel ] )

// Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)
#DEFINE TAB  Chr(09)
User Function Exemplo()
  Local bBloco := {|nArg| nArg + 1 }
  Local cMensagem := ""
  Local nCount := 0
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função Eval                                            |
  //+----------------------------------------------------------------------------+  
  cMensagem += "Antes de avaliar o bloco de código: "  + CRLF  
  cMensagem += TAB + "nCount = " + cValToChar(nCount)  + CRLF  
  nCount := Eval(bBloco, nCount)  
  cMensagem += "Depois de avaliar o bloco de código: " + CRLF  
  cMensagem += TAB + "nCount = " + cValToChar(nCount)
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Eval - Exemplo")
  
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Exemplo 2
//Este exemplo cria um bloco de código que incrementa um número e depois o avalia:
bBloco := { |nArg| nArg + 1 } 
EVAL(bBloco, 1)                               // Resulta: 2

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Exemplo 3
//Este exemplo demonstra como um bloco de código pode ser compilado em tempo de execuçao utilizando-se o operador macro (&):
bBloco := &("{ |nArg| nArg + 1 }") 
EVAL(bBlock, 1)                               // Avalia o bloco