Pascal/Turbo Pascal - URGENTISIMO COMO VALIDAR DOSERROR Y page up

 
Vista:

URGENTISIMO COMO VALIDAR DOSERROR Y page up

Publicado por raymond (20 intervenciones) el 26/02/2001 07:46:09
Nesecito saber como se valida el DosError, si el directorio no existe y en el teclado la page up, y page down.

Para Tarea de mañana..

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTISIMO COMO VALIDAR DOSERROR Y page up

Publicado por Diego Romero (282 intervenciones) el 26/02/2001 17:25:38
Raymond.
Turbo Pascal proporciona la directiva de compilacion $I para deshabilitar la devolución del ultimo error de Entrada/Salida en la funcion IOResult. Para desactivarla debes poner {$I-}.
Esto es un ejemplo:
Assign(f,'miarch.txt);
{$i-}
reset(f);
{$i+}
if IOResult<>0 then write('error abriendo archivo');

En el caso de las teclas debes considerar lo siguiente, en DOS las teclas grises del teclado y las teclas F devuelven dos codigos, el primero es siempre 0 (cero) indicando que se trata de una tecla especial, este es el caso de PgUp y PgDn.
Este programita te servirá para ver los codigos.
uses crt;
var
a:char;
begin
repeat
a:=readkey;
if a=#0 then
begin
a:=readkey;
writeln('Tecla espacial=',ord(a));
end
else
writeln('Tecla normal=',ord(a));
until a=#27;
end.

Espero te ayude. Cualquier cosa tienes mi mail.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTISIMO COMO VALIDAR DOSERROR Y page up

Publicado por Jhover Guaycha (1 intervención) el 28/02/2001 18:51:47
Yo utilizo el {$I-} dijo mi profe para quitar la directiva al procesador luego capturo el error con el IORESULT y le devuelvo la directiva con {$I+}, espero que sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar