Gestion des erreurs sous Pascal

Problème

Par défaut, en Pascal, le traitement des erreurs est fourni par le compilateur. Pour cette raison, le programme finit par afficher un message commençant par une erreur d'exécution, suivie d'une erreur numbe r ...

Donc, si le programmeur veut gérer les erreurs lui-même, il doit désactiver l'option de vérification des erreurs par le compilateur, en utilisant le menu Option et la commande Construire ... ou utiliser les directives du compilateur directement dans le programme source du code.

Par exemple, si dans un programme donné, nous souhaitons ouvrir un fichier lors de la réinitialisation et que le fichier n'existe pas, un message d'erreur s'affiche et le programme est arrêté.

Solution

Pour éviter cela, nous pouvons tester s'il s'agit d'un fichier ou non, puis agir en conséquence en utilisant la directive de compilation $ I et IOresult comme fonction qui renverra le résultat de entry / exit. Avec la directive ($ I-), le programmeur doit gérer lui-même ce type d'erreur.

C'est un programme qui vous permet d'entrer le nom physique d'un fichier et de l'ouvrir. Si le fichier n'existe pas, il est créé sans mettre fin au programme avec l'erreur suivante: erreur d'exécution 2 à ... (aucun fichier).

 Programme d'ouverture; Utilise WinCrt; Type de fichier; Var f: Fichier; nom: chaîne; Commencer à écrire ('Nom du fichier:'); Readln (nom); Assign (f, nom); {$ I-} Reset (f); Si IOresult 0, alors réécrivez (f); {$ I +} end. 

Merci à Zouari Lazhar pour cette astuce.