Pengurusan Ralat di bawah Pascal

Isu

Secara lalai, di Pascal, pengendalian ralat disediakan oleh pengkompil. Atas sebab ini, program ini berakhir dengan memaparkan mesej bermula dengan ralat Runtime diikuti dengan ralat numbe r ...

Jadi jika pengaturcara mahu mengendalikan kesilapan itu sendiri, ia mesti mematikan pilihan untuk pemeriksaan ralat oleh pengkompil, menggunakan menu Opsyen dan Bina ... atau untuk menggunakan arahan pengirim secara langsung dalam program sumber kod.

Sebagai contoh, jika dalam program tertentu, kami ingin membuka fail dengan tetapan semula dan fail itu tidak wujud, mesej ralat dipaparkan dan program dihentikan.

Penyelesaian

Untuk mengelakkan ini, kita boleh menguji sama ada fail atau kemudian bertindak dengan sewajarnya dengan menggunakan arahan kompilator $ I dan IOresult sebagai fungsi yang akan memulangkan hasil kemasukan / keluar. Dengan arahan ($ I-), pengaturcara mesti menguruskan sendiri jenis ralat ini.

Ini adalah program yang membolehkan anda memasukkan nama fizikal fail dan membukanya. Jika fail tidak wujud, ia dibuat tanpa menamatkan program pada ralat: runtime error 2 at ... (no file).

 Program Pembukaan; Menggunakan WinCrt; Ketik Fail; Var f: File; nama: rentetan; Begin Write ('Nama Fail:'); Readln (nama); Berikan (f, nom); {$ I-} Reset (f); Sekiranya IOresult 0 kemudian Tulis semula (f); {$ I +} tamat. 

Terima kasih kepada Zouari Lazhar untuk mendapatkan tip ini.