RE:URGENTISIMO COMO VALIDAR DOSERROR Y page up
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.