BlackTDN Search

quarta-feira, 21 de janeiro de 2009

Protheus :: Programação Básica em Advpl “Combo XXXVIII”

Processando Array com aEval():

aEval() é uma “internal function” que é utilizada para processar variáveis do tipo Array. Em sua forma mais simples usa dois parâmetros, um Array e um bloco de codificação. aEval() simplesmente faz um Loop em cada elemento do Array, passando um de cada vez, como um parâmetro para o Bloco de Codificação. Se o Array contém 5 elementos, aEval() avalia o bloco 5 vezes. Como exemplo, a seguinte chamada a aEval() mostra no Console do Server cada elemento do Array.

Local aArray := {“Marinaldo”,“Paulo Lira”,“Paulo Martins”,“Sergio”,“Henry” }

aEval( aArray , { |cElem| ConOut( cElem ) } )

Observamos que aEval() está avaliando o bloco de codificação, passando um parâmetro por vez. Denominamos o parâmetro como cElem, mas ele pode ser atribuído com qualquer nome.

aEval() é, realmente, uma função muito simples. Poderíamos até criar a nossa. Por exemplo:

User Function aEval( aArray , bEval )

Local nLoop
Local nLoops

nLoops := Len( aArray )
For nLoop := 1 To nLoops
Eval( bEval , aArray[ nLoop ] )
Next nLoop

Return( NIL )

E se usarmos a nossa função para processar um array teríamos o mesmo resultado de aEval().

Local aArray := {“Marinaldo”,“Paulo Lira”,“Paulo Martins”,“Sergio”,“Henry” }

U_aEval( aArray , { |cElem| ConOut( cElem ) } )

Na prática usaremos a função interna ( bem mais rápida ), mas tivemos uma idéia de como ela pode ser implementada em Advpl.

Nenhum comentário:

Postar um comentário