Respuesta: Error pascal sin mensaje de error TIPO DE VARIABLES
posP,posA,gramP,gramA,palP,palA,baseRA,baseRP: TipoFichero;
galaxia: TGalaxia;
gramarA,gramarP : TGramar;
cadena,base,linea:String;
cont,op,i:integer;
palabrasA,palabrasP:TPalabra;
AFD_conv_ra,AFD_conv_rp,AFD4,AFD5,AFD6,AFD7,AFD8:A FD;
//Para conocer la estructura de algunos tipos de datos declarados aquí arriba
TGramar = record
term : TPunT;
noterm : TPunNT;
prod: TPunP;
ax : TElem;
end;
Word = record
info : string;
x : string[1];
end;
TPalabra = array[1..300] of Word;
AFD=array[1..50,1..50]of string;
PROGRAM ROBOTxx partida(galaxia,gramarA,gramarP,palabrasA,palabras P,AFD_conv_ra,AFD_conv_rp,AFD4,AFD5,AFD6,AFD7,AFD8 ,op);
UNIT JUEGO
procedure partida(g:TGalaxia;gramarA,gramarP:TGramar;palA,pa lP:TPalabra;AFD_conv_ra,AFD_conv_rp,AFD4,AFD5,AFD6 ,AFD7,AFD8:AFD;opcion:integer);
El problema que me surge, es que el compilador no me da ningun error, pero al entrar en la funcion partida de Unit Juego, del begin salta al end directamente sin ejecutar ninguna linea de codigo.
Las pruebas que he realizado, enviando menos datos desde ROBOTxx a la funcion partida, pues funcionaba, entonces he pensado, pues creo los AFD en la unidad juego en vez de enviarlos desde ROBOTxx, pero nada, tambien falla, siempre hace lo mismo, sin marcarme un error, me salta del BEGIN al END.
Si la funcion partida recibe un solo parametro tipo AFD o en ella declaro mas de un parametro tipo AFD ya no funciona y me salta al END
Gracias |