topic-2893

Board index FiveWin para Harbour/xHarbour Agrandar un ARRAY bidireccional

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Agrandar un ARRAY bidireccional
Posted: Mon May 01, 2006 05:46 AM

Estimados,

Tengo esto:

Local aMatriz:={ {} }

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

He visto en las NG

Code: Select all Collapse

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/

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Agrandar un ARRAY bidireccional
Posted: Mon May 01, 2006 09:16 AM

goosfancito wrote:Estimados,

Tengo esto:
Code: Select all Collapse
Local aMatriz:={ {} }
Ahora bien, quiero hacer que dicha matriz tome 10 x 10 pisiciones.

He visto en las NG
Code: Select all Collapse
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 Collapse

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

Espero haber ayudado

William, Morales

Saludos

méxico.sureste

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Agrandar un ARRAY bidireccional
Posted: Mon May 01, 2006 04: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 Collapse

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/

FiveTech Support Forums

Continue the discussion