Agrandar un ARRAY bidireccional

[goosfancito]

Estimados,

Tengo esto:

Code: Select all  Expand view

Local aMatriz:={ {} }

Ahora bien, quiero hacer que dicha matriz tome 10 x 10 pisiciones.

He visto en las NG

Code: Select all  Expand view

aSize( aMatriz, {10, 10 } )

pero en este caso pondría dos valores, yo necesito simplemente agrandar la matriz.

Alguna Idea?

He dicho.

[wmormar]

Estimados,

Tengo esto:

Code: Select all  Expand view

Local aMatriz:={ {} }

Ahora bien, quiero hacer que dicha matriz tome 10 x 10 pisiciones.

He visto en las NG

Code: Select all  Expand view

aSize( aMatriz, {10, 10 } )

pero en este caso pondría dos valores, yo necesito simplemente agrandar la matriz.

Alguna Idea?

He dicho.

Goos,

Creo que es multidimensional.

Code: Select all  Expand view

Asize( aMatriz, 10 )
aMatriz[10] := ARRAY(10)
   o
AEVAL( aMatriz,{|aItem| aItem := ARRAY(10) } )

Espero haber ayudado

[goosfancito]

Estimado,

No se si es validero, pero a medida que resuelvo los problemas los voy respondiendo.

Objetivo: crear una matriz multidimensional (palabra larga esta che!) cuyo contenido es un vector de diferentes dimensiones.

Code: Select all  Expand view

STATIC aMatriz:={ }

FUNCTION main()
   LOCAL aVector:={}

   ASize( aVector, 10 )
   AAdd( aMatriz, aVector )

   aVector:={}
   ASize( aVector, 04 )
   AADD( aMatriz, aVector )

   // Prueba
   ? "Tamaño aMatriz", Len( aMatriz )
   ? "posicion 1 10 de aMatriz", aMatriz[ 01 ][ 10 ]
 
   // el siguiente daria error porque la posicion 2 de aMatriz tiene ahora 5 posiciones
   ? "posicion 2 10 de aMatriz", aMatriz[ 02 ][ 10 ]

   // En cambio la siguiente linea no daria error
   ? "posicion 2 5 de aMatriz", aMatriz[ 02 ][ 05 ]

   RETURN ( NIL )

He dicho.