Διαχείριση σφαλμάτων στο Pascal

Θέμα

Από προεπιλογή, στο Pascal, ο χειρισμός σφαλμάτων παρέχεται από τον μεταγλωττιστή. Για το λόγο αυτό, το πρόγραμμα τελειώνει με την εμφάνιση ενός μηνύματος που ξεκινά με σφάλμα χρόνου εκτέλεσης που ακολουθείται από σφάλμα numbe r ...

Επομένως, αν ο προγραμματιστής θέλει να χειριστεί τα ίδια τα σφάλματα, πρέπει να απενεργοποιήσει την επιλογή για τον έλεγχο σφάλματος από τον μεταγλωττιστή, χρησιμοποιώντας το μενού Option και το Build ... ή να χρησιμοποιήσει τις οδηγίες compiler απευθείας στο πρόγραμμα κώδικα.

Για παράδειγμα, εάν σε ένα συγκεκριμένο πρόγραμμα, θέλουμε να ανοίξουμε ένα αρχείο από την επαναφορά και το αρχείο δεν υπάρχει, εμφανίζεται ένα μήνυμα σφάλματος και το πρόγραμμα διακόπτεται.

Λύση

Για να αποφευχθεί αυτό, μπορούμε να ελέγξουμε αν ένα αρχείο και στη συνέχεια να ενεργήσουμε ανάλογα με τη χρήση της οδηγίας compiler $ I και IOresult ως συνάρτηση που θα επιστρέψει το αποτέλεσμα εισόδου / εξόδου. Με την οδηγία ($ I-), ο προγραμματιστής πρέπει να διαχειριστεί αυτό τον τύπο σφάλματος.

Πρόκειται για ένα πρόγραμμα που σας επιτρέπει να εισάγετε το φυσικό όνομα ενός αρχείου και να το ανοίξετε. Εάν το αρχείο δεν υπάρχει, δημιουργείται χωρίς να τερματιστεί το πρόγραμμα στο σφάλμα: σφάλμα χρόνου εκτέλεσης 2 στο ... (κανένα αρχείο).

 Πρόγραμμα έναρξης; Χρησιμοποιεί το WinCrt. Πληκτρολογήστε αρχείο. Varf: Αρχείο. όνομα: συμβολοσειρά; Ξεκινήστε να γράφετε ('Όνομα αρχείου:'); Readln (όνομα); Αναθέστε (f, nom); {$ I-} Επαναφορά (f); Αν IOresult 0 στη συνέχεια ξαναγράψω (f)? {$ I +} τέλος. 

Χάρη στον Zouari Lazhar για αυτό το άκρη.