Fejlstyring under Pascal

Problem

Som standard leveres i Pascal fejlhåndtering af kompilatoren. Af denne grund slutter programmet ved at vise en besked, der starter med Runtime-fejl efterfulgt af fejl numbe r ...

Så hvis programmøren ønsker at håndtere fejlene i sig selv, skal den deaktivere muligheden for fejlkontrol af kompilatoren ved hjælp af menuen Option og Build ... eller at bruge compilerdirektiverne direkte i kodekildeprogrammet.

For eksempel, hvis vi i et givet program ønsker at åbne en fil ved nulstillingen, og at filen ikke eksisterer, vises en fejlmeddelelse, og programmet stoppes.

Opløsning

For at undgå dette kan vi teste om en fil og derefter handle i overensstemmelse hermed ved at bruge compilerdirektivet $ I og IOresultater som den funktion, der vil returnere resultatet af indgang / udgang. Med direktivet ($ I-) skal programmøren håndtere denne type fejl.

Dette er et program, der lader dig indtaste et fysisk navn på en fil og åbne den. Hvis filen ikke eksisterer, oprettes den uden at afslutte programmet på fejlen: runtime error 2 at ... (ingen fil).

 Åbningsprogram; Bruger WinCrt; Skriv fil; Var f: Fil; navn: streng; Begynd Skriv ('Filnavn:'); Readln (navn); Tildel (f, nom); {$ I-} Nulstil (f); Hvis IOresult 0 så Skriv omskrivning (f); {$ I +} ende. 

Takket være Zouari Lazhar for dette tip.