PROBLEMAS CON MATRIZ... Pregunta de Novato

Board index FiveWin para Harbour/xHarbour PROBLEMAS CON MATRIZ... Pregunta de Novato

Posts: 22

Joined: Thu May 06, 2010 07:46 PM

PROBLEMAS CON MATRIZ... Pregunta de Novato
Posted: Thu Jan 23, 2014 05:08 PM

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.

Posts: 118

Joined: Fri Dec 20, 2013 10:39 AM

Re: PROBLEMAS CON MATRIZ... Pregunta de Novato
Posted: Thu Jan 23, 2014 07:19 PM

Hola,

prueba a cambiar esto

nlon := PARI+NLON+PARF

Aadd(mMatriz,nlon)

xBrowse(mMatriz)

por

nlon := PARI+NLON+PARF

Aadd(mMatriz,&nlon)

xBrowse(mMatriz)

a ver si te funciona

Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3

Posts: 22

Joined: Thu May 06, 2010 07:46 PM

Re: PROBLEMAS CON MATRIZ... Pregunta de Novato
Posted: Thu Jan 23, 2014 08:32 PM

Estimado Eloy:

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

FiveTech Support Forums