Manejo de errores bajo Pascal

Problema

Por defecto, en Pascal, el compilador proporciona el manejo de errores. Por este motivo, el programa finaliza mostrando un mensaje que comienza con un error de tiempo de ejecución seguido de un número de error r ...

Entonces, si el programador quiere manejar los errores, debe deshabilitar la opción para que el compilador verifique los errores, usando el menú de opciones y la compilación ... o use las directivas del compilador directamente en el programa de código fuente.

Por ejemplo, si en un programa dado, queremos abrir un archivo mediante el restablecimiento y el archivo no existe, se muestra un mensaje de error y el programa se detiene.

Solución

Para evitar esto, podemos probar si un archivo o no y luego actuar en consecuencia usando la directiva de compilación $ I e IOresult como la función que devolverá el resultado de la entrada / salida. Con la directiva ($ I-), el programador debe gestionar este tipo de error.

Este es un programa que le permite ingresar el nombre físico de un archivo y abrirlo. Si el archivo no existe, se crea sin finalizar el programa en el error: runtime error 2 at ... (sin archivo).

 Programa de apertura; Utiliza WinCrt; Tipo de archivo; Var f: File; nombre: cadena; Comience a escribir ('Nombre de archivo:'); Lectura (nombre); Asignar (f, nom); {$ I-} Restablecer (f); Si IOresult 0 entonces reescribe (f); {$ I +} final. 

Gracias a Zouari Lazhar por este consejo.