FOR nCont = 1 TO Len( ::acKeyboard )
FOR nCont2 = 1 TO Len( ::acKeyboard[ nCont ] )
@ ::nTop + 1 + nCont * 2, ::nLeft + 1 + ( nCont2 - 1 ) * 5 SAY ::acKeyboard[ nCont, nCont2 ]
NEXT
NEXT
olhando assim, difÃcil entender, e com FOR/EACH talvez não facilite.
Mas com nome adequado...
FOR EACH aLinhaTeclado IN ::acKeyboard
FOR EACH cTecla IN aLinhaTeclado
@ ::nTop + 1 + aLinhaTeclado:__EnumIndex * 2, ::nLeft + 1 + ( cTecla:__EnumIndex - 1 ) * 5 SAY cTecla
NEXT
NEXT
É a montagem do teclado da calculadora, uma linha por vez, e uma tecla por vez.
Eu estava na dúvida se alterava pra FOR/EACH, porque parecia que ia só complicar.
Mas pensei no nome adequado, e aà achei que valia a pena.