Delphi Global Hata Kontrolü - Delphi- Zamansız Tartışma Platform

The.`KinG · 15-09-06, 23:21 Çevrimdışı

Delphi kullanıcılarının hata kontrolünde kullandıkları en yaygın yöntem “try” bloğunun kullanılmasıdır. Program içerisinde oluşacak global hataları, program içinden kendimiz de yönlendirebiliriz. Örneğin; sıfıra bölünme hatası, yetersiz disk alanı gibi hataları kendimiz yönlendirebiliriz. TApplication nesnesinin OnException eventı ile kolaylıkla kontrol altına alınabilir.

1. Formumuzun "public declarations" bölümünde hata tanımlamamızı yapabiliriz. Formumuzun ismi "Form1" olsun:

{ Public declarations }
procedure MyExceptionHandler(Sender : TObject; E : Exception );

2. "implementation" bölümünde Exception handle tanımlamamızı yapalım:

procedure TForm1.MyExceptionHandler(Sender : TObject; E : Exception );
var
wRetVal : Word;
begin
wRetVal := MessageDlg('ERROR: ' + E.Message, mtError, mbAbortRetryIgnore, 0 );
case wRetVal of
mrAbort: begin
{ handle "Abort" here... }
end;
mrRetry: begin
{ handle "Retry" here... }
end;
mrIgnore: begin
{ handle "Ignore" here... }
end;
else
begin
{ handle "other" action here...}
end;
end;
end;

3. Sonuç olarak, programımıza yani TApplication nesnesi üzerinden OnException eventı ile assign edebiliriz.

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:=MyExceptionHandler;
end;

wolf_57 · 21-04-07, 18:19 Çevrimdışı

paylaşım için teşekkurler

15-09-06, 23:21 Çevrimdışı	#1
Doçent The.`KinG Genel Mesajlar: 3.399 Teşekkür etti: 1.599 Teşekkür edildi: 1.606 RepForum Gücü: 41 Forum Puanı:12169	Delphi Global Hata Kontrolü Delphi kullanıcılarının hata kontrolünde kullandıkları en yaygın yöntem “try” bloğunun kullanılmasıdır. Program içerisinde oluşacak global hataları, program içinden kendimiz de yönlendirebiliriz. Örneğin; sıfıra bölünme hatası, yetersiz disk alanı gibi hataları kendimiz yönlendirebiliriz. TApplication nesnesinin OnException eventı ile kolaylıkla kontrol altına alınabilir. 1. Formumuzun "public declarations" bölümünde hata tanımlamamızı yapabiliriz. Formumuzun ismi "Form1" olsun: { Public declarations } procedure MyExceptionHandler(Sender : TObject; E : Exception ); 2. "implementation" bölümünde Exception handle tanımlamamızı yapalım: procedure TForm1.MyExceptionHandler(Sender : TObject; E : Exception ); var wRetVal : Word; begin wRetVal := MessageDlg('ERROR: ' + E.Message, mtError, mbAbortRetryIgnore, 0 ); case wRetVal of mrAbort: begin { handle "Abort" here... } end; mrRetry: begin { handle "Retry" here... } end; mrIgnore: begin { handle "Ignore" here... } end; else begin { handle "other" action here...} end; end; end; 3. Sonuç olarak, programımıza yani TApplication nesnesi üzerinden OnException eventı ile assign edebiliriz. procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException:=MyExceptionHandler; end; Gözlerim , Sende Kaldı Sevdalım , Hiçkimseleri Göremiyorum ...

21-04-07, 18:19 Çevrimdışı	#2
Rektör wolf_57 Genel Mesajlar: 6.573 Teşekkür etti: 5.389 Teşekkür edildi: 1.948 RepForum Gücü: 32 Forum Puanı:2939	paylaşım için teşekkurler

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder