Fehlerverwaltung unter Pascal

Problem

In Pascal wird die Fehlerbehandlung standardmäßig vom Compiler bereitgestellt. Aus diesem Grund wird am Ende des Programms eine Meldung angezeigt, die mit Runtime error beginnt , gefolgt von der Fehlernummer ...

Wenn der Programmierer also die Fehler selbst behandeln möchte, muss er die Option zur Fehlerprüfung durch den Compiler über das Optionsmenü und den Build ... deaktivieren oder die Compiler-Direktiven direkt im Code-Quellprogramm verwenden.

Wenn in einem bestimmten Programm beispielsweise eine Datei durch Zurücksetzen geöffnet werden soll und die Datei nicht vorhanden ist, wird eine Fehlermeldung angezeigt und das Programm gestoppt.

Lösung

Um dies zu vermeiden, können wir testen, ob eine Datei vorhanden ist oder nicht, und dann entsprechend vorgehen, indem wir die Compiler-Direktive $ I und IOresult als Funktion verwenden, die das Ergebnis von entry / exit zurückgeben. Mit der Direktive ($ I-) muss sich der Programmierer diesen Fehlertyp selbst vornehmen.

Mit diesem Programm können Sie den physischen Namen einer Datei eingeben und diese öffnen. Wenn die Datei nicht existiert, wird sie erstellt, ohne das Programm bei dem Fehler zu beenden: Laufzeitfehler 2 um ... (keine Datei).

 Eröffnungsprogramm; Verwendet WinCrt; Typ Datei; Var f: Datei; name: string; Beginnen Sie mit dem Schreiben ('Dateiname:'); Readln (Name); Zuweisen (f, nom); {$ I-} Zurücksetzen (f); Wenn IOresult 0, schreibe (f) um; {$ I +} endet. 

Vielen Dank an Zouari Lazhar für diesen Tipp.

Vorherige Artikel Nächster Artikel

Top-Tipps