Agrandar un ARRAY bidireccional

Agrandar un ARRAY bidireccional

Postby goosfancito » Mon May 01, 2006 5:46 am

Estimados,

Tengo esto:
Code: Select all  Expand view  RUN
Local aMatriz:={ {} }


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

He visto en las NG
Code: Select all  Expand view  RUN
aSize( aMatriz, {10, 10 } )


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

Alguna Idea?

He dicho.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: Agrandar un ARRAY bidireccional

Postby wmormar » Mon May 01, 2006 9:16 am

goosfancito wrote:Estimados,

Tengo esto:
Code: Select all  Expand view  RUN
Local aMatriz:={ {} }


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

He visto en las NG
Code: Select all  Expand view  RUN
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  RUN
Asize( aMatriz, 10 )
aMatriz[10] := ARRAY(10)
   o
AEVAL( aMatriz,{|aItem| aItem := ARRAY(10) } )


Espero haber ayudado
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby goosfancito » Mon May 01, 2006 4:57 pm

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  RUN
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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests