• erunit01
• Soubory:
  • erunit01.pas - zdrojový soubor
  • erunite1.pas - zdrojový soubor - ukázkový příklad
  • erunit01.tpu - unit (real)
  • erunit01.tpp - unit (protected)
• pascal - dos
• unit
• real, protected
• Petr Kratochvíl
• freeware, se zdrojovým kódem

Runtime error 002 at 0000:0138.

Vyskytla se následující chyba: Soubor nebyl nalezen
Kód chyby: 2 Adresa chyby: 0000:0138

Runtime error 200 at 0000:016C.

Vyskytla se následující chyba: Dělení nulou
Tato chyba by za normálních okolností neměla nikdy nastat. Pokud potíže
přetrvávají, kontaktujte, prosím, autora programu.
Kód chyby: 200 Adresa chyby: 0000:016c

unit erunit01;
{----------------------------------------------------------------------------

                               Error unit 1

Verze: 1.2
Licence: Freeware! Enjoy!
Jazyk: ÇeĘtina
Kódování çeĘtiny: Kamenickœch
Programovací jazyk: Borland Pascal, Turbo Pascal
ReĹim: reálnœ, protected
Autor: Petr Kratochvíl
Web: http://www.sweb.cz/krato
E-mail: krato@seznam.cz
Datum dokonçení:
 V1.0: 9.2.2000
 V1.1: 10.4.2000
 V1.2: 25.7.2000

Licence:
  Tato jednotka je freeware. To znamená, Ĺe mžĹete mít legálnł jak tuto
	  jednotku, tak její zdrojovœ kód. Pokud vĘak provedete na této jednotce
		nłjaké úpravy, nedistribujte, prosím, zdrojovœ kód jen pod mœm jménem
    (ale proç provádłt nłjaké úpravy, kdyĹ je mžĹe udłlat autor jednotky?).
    Jak jiĹ bylo uvedeno, Ĺádné registrace ani placení nevyĹaduji. Budu vĘak
    velmi MILE P×EKVAPEN kdyĹ mł zasponzorujete nłjakœmi dary nebo tuçnœmi
    Ęeky anebo alespoĽ mé jméno uvedete napę. v titulcích programu.

Popis funkce jednotky:
  Tato jednotka umoĹnuje vylepĘenœ vœpis chybovœch zpráv pęi vœskytu chyb.

PouĹití:
  erunit01on:
    true - Pęi vœskytu chyby se vypíĘe chybová hláĘka slovy. V pęípadł chyby,
		  která by nemłla nastat (napę. chyba dłlení nulou) se vypíĘe i tento
			text:
      'Tato chyba by za normálních okolností nemłla nikdy nastat. Pokud potíĹe'
      'pęetrvávají, kontaktujte, prosím, autora programu.'
    false - Zakazuje pouĹívání této jednotky. Program se pak chová, jako kdyby
      tuto jednotku vžbec nepouĹíval.
  erunit01rte:
    true - Pod chybové hláĘení tohoto programu se navíc vypíĘe i standartní
      chybové hláĘení (tzv. run-time-error).
    false - vypíĘe se pouze chybové hláĘení tohoto programu.

FAQ:
Q: Co kdyĹ chyba nastane v grafickém reĹimu?
A: Pęed vœpisem chyby se grafickœ reĹim automaticky odinicializuje (pokud byl
   inicializován pomocí procedury initgraph)

Verze:
1.0:
  První verze.
1.1:
  Pęidáno automatické odinicializování grafiky pęi vœskytu chyby (ale jeĘtł
	  neotestováno).
1.2:
  Zfunkçnłna moĹnost erunit01rte:=true (aĹ do teâ omylem její kód chybłl).

Servis:
  Na mžj e-mail mžĹete kdykoli posílat veĘkeré dotazy, pęipomínky nebo
    informace o nedostatcích této jednotky (omlouvám se, Ĺe jsem pęeloĹil
		slovo 'unit' na slovo 'jednotka'. Nezní to tak stravitelnł, ale pęeklad
		je pęeklad...).

----------------------------------------------------------------------------}