Gestión de errores

Septiembre 2017

En Pascal, por defecto, la gestión de errores es garantizada por el compilador. Es por esta razón que cuando se produce un error el programa se detiene y muestra un mensaje que comienza por Runtime error seguido por el número de error…
Sin embargo, el programador puede administrar él mismo los errores, para ello deberá desactivar la opción de verificación de errores por el compilador, a través del menú Opción y el comando Compilar…o utilizar las directivas de compilación directamente en el código fuente del programa.

Por ejemplo, si en un programa dado, deseamos abrir un fichero con el procedimiento Reset y ese fichero no existe, entonces aparece un mensaje de error y el programa se detiene.
Para evitar esto, podemos verificar la existencia o no de un archivo y luego tomar las acciones apropiadas utilizando la directiva de compilación $I. Esta es la función IOresult que devuelve el resultado de los operadores de entrada /salida. Con la directiva {$I-}, es el mismo programador que debe administrar este tipo de errores.
A continuación veremos un programa que permite ingresar el nombre físico de un fichero y abrirlo. Si el fichero no existe será creado sin que el programa se detenga debido al error: Runtime error 2 at … (archivo inexistente).

Programa para abrir el fichero;
Uses WinCrt;
Type
    Fichero = File;
Var
f : Fichero;
nombre: string;
Begin
     Write ('Nombre del fichero: '); Readln (nombre);
     Assign (f, nombre);
     {$I-}
     Reset (f);
     If IOresult <> 0 then Rewrite (f);
     {$I+}
end.

Consulta también

Publicado por Carlos-vialfa. Última actualización: 23 de abril de 2009 a las 17:24 por Carlos-vialfa.
El documento «Gestión de errores» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.