HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Globális hibakezelés


Példaprogram letöltése

9508 bájt

Ha egy alkalmazásunkban hiba keletkezik, akkor ezt megfoghatjuk, ha az adott helyen használjuk a try..except..end blokkot. Viszont a forráskód minden helyére nem tehetünk ilyeneket, sokszor ez felesleges is lenne. Hiba persze ekkor még történhet és a Delphi-s alkalmazásunk ezt le is kezeli, gyönyörű angol nyelvű hibaüzeneteket küldözgetve a felhasználóinknak. Ezt elkerülendő érdemes készítenünk egy olyan hibakezelő eljárást, mely globális alkalmazásunkra nézve, vagyis bárhol keletkezzen a hiba, ha ott nincs try..except..end blokk, akkor erre az eljárásunkra kerül a vezérlés. Így bármilyen, előre nem látható hibát kezelhetünk saját magunk.
Ehhez az TApplication osztály OnException eseményét kell felhasználnunk. Célszerű a program indulásakor egy megfelelő eljárást értékül adnunk. Ezek után, ha a programunkban hiba keletkezik, akkor ez az eljárás lesz meghívva.
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:=DoException;
end;

Ezen eljárásban pedig tetszőlegesen kezelhetjük a létrejött hibát. Paraméterként kapunk egy Exception típusú osztályt, melyből megtudhatjuk a létrejött hiba okát is.
procedure TForm1.DoException(Sender: TObject; E: Exception);
begin
  ListBox1.Items.Add(E.Message+' ['+E.ClassName+']');
end;



Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 101. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |