Správa chyb v Pascalu

Problém

Ve výchozím nastavení v Pascalu poskytuje kompilátor zpracování chyb. Z tohoto důvodu program končí zobrazením zprávy začínající chybou Runtime následovanou chybou numbe r ...

Pokud tedy programátor chce zpracovat chyby sám, musí vypnout volbu pro kontrolu chyb kompilátorem, pomocí nabídky Option a Build ... nebo použít kompilátorové směrnice přímo v programovém zdrojovém kódu.

Pokud například chceme v daném programu otevřít soubor resetem a soubor neexistuje, zobrazí se chybová zpráva a program se zastaví.

Řešení

Abychom se tomu vyhnuli, můžeme testovat, zda se jedná o soubor, a pak podle toho postupovat pomocí direktivy kompilátoru $ I a IOresult jako funkce, která vrátí výsledek vstupu / výstupu. Se směrnicí ($ I-) musí programátor sám řídit tento typ chyby.

Jedná se o program, který umožňuje zadat fyzický název souboru a otevřít jej. Pokud soubor neexistuje, je vytvořen bez ukončení programu na chybě: runtime error 2 at ... (no file).

 Úvodní program; Používá WinCrt; Typ souboru; Var f: Soubor; jméno: řetězec; Begin Write ('Název souboru:'); Readln (název); Assign (f, nom); {$ I-} Reset (f); Pokud IOresult 0 pak Rewrite (f); {$ I +} konec. 

Díky Zouari Lazhar za tento tip.