Manajemen Kesalahan di bawah Pascal

Isu

Secara default, dalam Pascal, penanganan kesalahan disediakan oleh kompiler. Untuk alasan ini, program berakhir dengan menampilkan pesan yang dimulai dengan Runtime error diikuti oleh error numbe ...

Jadi, jika programmer ingin menangani kesalahan itu sendiri, ia harus menonaktifkan opsi untuk pengecekan kesalahan oleh kompiler, menggunakan menu Opsi dan Build ... atau menggunakan arahan kompiler langsung dalam program kode sumber.

Misalnya, jika dalam program tertentu, kami ingin membuka file dengan reset dan bahwa file tidak ada, pesan kesalahan ditampilkan dan program dihentikan.

Larutan

Untuk menghindari hal ini, kita dapat menguji apakah suatu file dan kemudian bertindak sesuai dengan menggunakan arahan kompiler $ I dan IOresult sebagai fungsi yang akan mengembalikan hasil masuk / keluar. Dengan arahan ($ I-), programmer harus mengatur sendiri jenis kesalahan ini.

Ini adalah program yang memungkinkan Anda memasukkan nama fisik file dan membukanya. Jika file tidak ada itu dibuat tanpa mengakhiri program pada kesalahan: runtime error 2 at ... (tidak ada file).

 Program Pembukaan; Menggunakan WinCrt; Jenis File; Var f: File; nama: string; Mulai Tulis ('Nama File:'); Readln (nama); Tetapkan (f, nom); {$ I-} Reset (f); Jika IOresult 0 maka tulis ulang (f); {$ I +} end. 

Terima kasih kepada Zouari Lazhar untuk tip ini.