كيف استعمل كود الاستتناء (indy exceptions by code)؟

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
بعض الأنماط توفر رقم الخطأ (وغالبا رسالة خطأ افتراضية)، مثال BDE

كود :

http://www.delphifaq.com/faq/delphi/database/f1.shtml

حيث يمكنك تخصيصها لأغراض Localization أو غيرها، عند حدث معين (OnError) أو غيره...
البعض الآخر يتكفل بالـ Localization بنفسه، ويعرض رسالة خطأ معبرة ومطابقة لإعدادات النظام
الأمر الذي لا يناسب المبرمج/المستخدم في حالات كثيرة...
كحل بديل استخدام حيز محمي Try/Except وفحص رسالة الخطأ

كود :

Try // ... Except if AnsiContainsText(e.Message, 'PRIMARY KEY') then begin end; End;

أو فحص صنف الخطأ كما أشرت:

PHP كود :

Try
  Except
    on EDivByZero do begin

    end;
//    Other exceptions...
    on Exception do begin

    end;
  End; 


بالتوفيق.