Tratarea erorilor grafice, proceduri și funcții

Aceasta functie retuneaza un cod de eroare care raporteaza starea ultimei operatii grafice executate. Codul returnat este 0 in cazul unei operatii grafice reusite si o valoare negativea cand ultima operatie s-a terminat cu esec. Functia este definita astrfel: GrNotFound=-3; -fisier driver BGI negasita GrInvalidDriver=-4; -fisier driver invalid GrNoLoadMen=-5; -emorie insuficienta pentru incarcarea driverului GrNoScanMen=-6; -memorie insuficienta pentru manevre GrNoFloodMen=-7; -memorie insuficienta pentru hasurare GrFontNoFound=-8; -fisier cu careactere speciale negasite GrNoFontMen=-9; -memorie insuficienta pentru incarcarea caracter GrInvalidMode=-10; -mod grafic invalidpentru driverul selectat GrError=-11; -eroare genetica de grafica GrIOError=-12; -eroare de intrare / iesire grafica GrInvalidFont=-13; -fisier de caractere invalid GrInvalidFontNum=-14; -Numar invalid de set de caractere Valoarea returnata de functia de GraphResult trebuie salvata intr-o variabila temporara in vederea testarii ulterioare intru-cat apel valoarea va fi reinitializata la 0. GraphErrorMsg Funtia GraphErrorMsg returneaza textul mesajului de eroare corespunzator codului de eroare obtinut de GraphRezult. Functia este definita: Function GraphErrorMsg (cod: integer): string; Cod este codul de eroare.

2. 2. Aplicatie Program erorigr; uses Graphcrt; var CodEror, gd, gm: integer; begin gd: =detect; initGraph (Dd, Gm, ); codEror: =GraphResult; {Citirea rezultatului} if CodErorgrOk the begin writeln (Eroare: , GraphErorMsg (CodEroare) ); writeln (Se paraseste programul); hait (1); end; closeGraph; End. ...