Consulta de código implementado en pascal con un error
Necesito saber porque pascal me arroja el error 100 de lectura cuando le estoy pasando una variable por referencia y la utilizo para direccionar en un archivo ej:
writeln('ingrese numero (1 a 6)');
readln(zx);
luego en el procedimiento buscar:
reset(re);
seek(re,zx-1);
writeln(zx)-----> retorna cualquier numero 45024,25062...
Obviamente genera el error 100 de intento de leer fuera de EOF.
¿Alguien sabe algo sobre esto? GRACIAS
writeln('ingrese numero (1 a 6)');
readln(zx);
luego en el procedimiento buscar:
reset(re);
seek(re,zx-1);
writeln(zx)-----> retorna cualquier numero 45024,25062...
Obviamente genera el error 100 de intento de leer fuera de EOF.
¿Alguien sabe algo sobre esto? GRACIAS
1 Respuesta
Respuesta
1
En primer lugar, decirte que sin tener todo el código delante se me hace difícil ayudarte. Aún así voy a intentarlo. Como dices, eso se genera por intentar leer un vez pasado el fin de fichero: lo que puedes hacer es lo siguiente:
Var
Tamaño : Integer; va a contener el tamaño en registros del fichero
Begin
Reset(re);
tamanio=filesize(re)
Repeat
readln(zx)
until (zx in [1..tamanio-1]
seek(re,zx-1);
end.
Haciendo eso te asegurarás de que no apuntas nunca fuera del fichero, puesto que ya de antemano conocemos el tamaño del mismo que está almacenado en la variable tamaño.
Si tienes alguna duda, pon aquí el código completo, para poder ayudarte mejor.
Var
Tamaño : Integer; va a contener el tamaño en registros del fichero
Begin
Reset(re);
tamanio=filesize(re)
Repeat
readln(zx)
until (zx in [1..tamanio-1]
seek(re,zx-1);
end.
Haciendo eso te asegurarás de que no apuntas nunca fuera del fichero, puesto que ya de antemano conocemos el tamaño del mismo que está almacenado en la variable tamaño.
Si tienes alguna duda, pon aquí el código completo, para poder ayudarte mejor.