- Code: Select all Expand view
// --- Initialize
oGet := {}
aGet := {}
For i := 1 TO 30
AADD(oGet, Nil)
AADD(aGet, Str(i))
Next
// --- Create Gets:
nR := 0; nC := 0
For i := 1 TO 30
nR, nC GET oGet[i] Var aGet[i]
nR += 1
Next
Pero este ejemplo no funciona. Todos los gets muestran el mismo valor 30, o sea, el balor final del For... next). Llevo un buen rato dándole vueltas pero estoy bloqueado. Alguien podría sugerirme cómo hacerlo?
Rafael