Page 1 of 1

PROBLEMAS CON MATRIZ... Pregunta de Novato

Posted: Thu Jan 23, 2014 5:08 pm
by Luis
Sres del Foro :
Disculpen la molestia nuevamente tengo este problema.

Si hago esto :

Local aDia := {"01","02","03","04","05"}
Local mMatriz:= {{}}
Asize(mMatriz,0)

Aadd(mMatriz,aDia)
xBrowse(mMatriz)

Aparece en Xbrowse :

A B C D E
01 02 03 04 05

Pero si hago esto :

Local pari:= '{'
Local parf:= '}'
Local coma:= ','
Local nlon:='', npar:=''
Local mMatriz:= {{}}
Asize(mMatriz,0)

For i:=1 to 5
npar := '"'+Ltrim(Str(i))+'"'
If i > 1 .AND. i < 6
nlon := nlon+coma+npar
Else
nlon := nlon+npar
Endi
Next
nlon := PARI+NLON+PARF

Aadd(mMatriz,nlon)

xBrowse(mMatriz)

Aparece en Xbrowse :

                  A                     B   C   D   E
{"01"," 02","03","04","05 "}

Solo en la columna A como un String.

Que estoy haciendo mal. Por favor alguna ayuda.

Gracias.

Re: PROBLEMAS CON MATRIZ... Pregunta de Novato

Posted: Thu Jan 23, 2014 7:19 pm
by informaticaeloy
Hola,

prueba a cambiar esto

Code: Select all

nlon := PARI+NLON+PARF

Aadd(mMatriz,nlon)

xBrowse(mMatriz)
por

Code: Select all

nlon := PARI+NLON+PARF

Aadd(mMatriz,&nlon)

xBrowse(mMatriz)
a ver si te funciona

Re: PROBLEMAS CON MATRIZ... Pregunta de Novato

Posted: Thu Jan 23, 2014 8:32 pm
by Luis
Estimado Eloy:

Agradezco tu pronta respuesta y disculpa la pregunta. Como te habrás dado cuenta no soy muy experto. Muchas Gracias.