Duplica un array anidado ó multidimensional
* El ejemplo siguiente crea un array bidimensional y lo duplica.
Se muestra que son copiadas ambas dimensiones.
LOCAL aOrigen, aDestino
aOrigen := { {1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10} }
aDestino := ACLONE( aOrigen )
* primera dimensión
? "Impares son: " // Resultado: es {1, 3, 5, 7, 9}
FOR n := 1 TO LEN( aDestino)
?? aDestino [n][1]
NEXT
* segunda dimensión
? "Pares son: " // Resultado: es {2, 4, 6, 8, 10}
FOR n := 1 TO LEN( aDestino)
?? aDestino [n][2]
NEXT