Problema con arrays E0022 Invalid lvalue: 'String'

Ver el tema anterior Ver el tema siguiente Ir abajo

Problema con arrays E0022 Invalid lvalue: 'String'

Mensaje  josecoye el Dom Ene 30, 2011 6:43 am

Hola a todos,

me presento a la comunidad,
soy Jose, de Barcelona y desde aquí un saludo!.

Llevo unos dias peleándome con la migración de un programa Clipper 5.1 a xharbour 1.20 en el que tengo un sistema de menús hecho con arrays el cual me gustaría mantener y cuando voy a compilarlo aparece el error
E0022 Invalid lvalue: 'String'.
He de decir que acabo de empezar y no tengo mucha idea.
Al que pueda ayudarme no tengo inconveniente en enviarle copia del proyecto (300kb), donde tengo los fuentes para intentar ver el problema.

Gracias.

Adjunto parte del código:

//--------------------------------------------------------------------------------------------------------
#include "Main.ch"

#define MN_NUMITEM hMenu[ nNumMenu, 1 ]
#define MN_ITEMS hMenu[ nNumMenu, 2 ]
#define MN_COL hMenu[ nNumMenu, 3 ]
#define MN_CLOSE hMenu[ nNumMenu, 4 ]

#define IT_ROW Item[ 1 ]
#define IT_COL Item[ 2 ]
#define IT_TEXT Item[ 3 ]
#define IT_ALTKEY Item[ 4 ]
#define IT_NUMPROMPT Item[ 5 ]
#define IT_PROMPTS Item[ 6 ]
#define IT_RAYAS Item[ 7 ]
#define IT_ANCHO Item[ 8 ]
#define IT_LARGO Item[ 9 ]


#define PR_ROW Prompt[ 1 ]
#define PR_TEXT Prompt[ 2 ]
#define PR_BLOCK Prompt[ 3 ]
#define PR_KEY Prompt[ 4 ]
#define PR_MENU Prompt[ 5 ]
#define PR_SUB Prompt[ 6 ]



STATIC hMenu := {}, nNumMenu := 0

/******************************************************************************/

FUNCTION MenuNew( lClose )

DEFAULT lClose TO TRUE

AAdd( hMenu, { 0, {}, 0, lClose } )
nNumMenu++

RETURN( NIL )



FUNCTION AddItem( cText, nFila, nCol )

DEFAULT nFila TO 2
DEFAULT nCol TO MN_COL

AAdd( MN_ITEMS, { nFila, nCol, cText, AltHotKey( cText ), 1, {}, {}, 0, 0 } )

MN_COL += Len( cText ) + 1
MN_NUMITEM++

RETURN( NIL )



FUNCTION AddPrompt( cText, bAction, lMenu )

LOCAL Item := MN_ITEMS[ MN_NUMITEM ]

IF IsNil( cText )
AAdd( IT_RAYAS, IT_LARGO )
ELSE
AAdd( IT_PROMPTS, { IT_LARGO, cText, bAction, HotKey( cText ), lMenu, NIL } )
// IT_ANCHO := Max( IT_ANCHO, Len( cText ) + 3 ) //*****aqui da el error*****
END

//IT_LARGO++ //*****aqui da el error*****


RETURN( NIL )










josecoye

Mensajes : 1
Fecha de inscripción : 29/01/2011

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.