Mega Code Archive
Genel hata yakalama
<![CDATA[
//Genel Hata Yakalama
private
procedure yakala(Sender: TObject;hatano:Exception);
{ Private declarations }
public
{ Public declarations }
end;
1-private satırını Yukarıdaki gibi düzenleyin.
..............................................
2-Formun Create olayını Aşağıdaki gibi düzenleyin.
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Open;//Tabloyu aç//Burayı değiştirebilirsiniz.
Application.OnException:=yakala;
end;
..............................................
3-Aşağıdaki Kod'u "Ctrl+Shift+C" Yordamıyla oluşturup düzenleyin.("Procedure" sırası otomatik oluşur).
procedure TForm1.yakala(Sender: TObject; hatano: Exception);
//Hata olduğu zaman işlecek
begin
ShowMessage('Genel Hata oluştu');
//Burada Formu kapatıp,devam ettirilebilirsiniz.
end;
Yukarıdaki Kod Oluşumu Sizin Kendi Eklemelerinizle dahada gelişebilir..Çok Etkilidir.Tüm Hataları Kontrol altına alırsınız..Banada başka kod lazım olur mantığıyla (Araştırmadım belki Kod bankasında vardır,Bilgiler tazelenir)Ekliyorum..İyi çalışmalar..
]]>