تمرين حول الاستثناء Exception

[ANAS AL OTAIBI]

تمرين خفيف جدا سهل بمعنى الكلمة
اول شيء نعمل المشروع مشروع صغير
ضع على Form
Edit - 3
Button -1
نضع هذا الكود في الزر

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
A,b,c: Integer;
begin
A := StrToInt (Edit1.Text);
b := StrToInt (Edit2.Text);
C := A Div B   ;
Edit3.Text := IntToStr(C);
end; 


عند عمل البرنامج يكون

Edit1 القيمة الاولة

Edit2 القيمة الثاية

Edit3 الناتج

اذا وضعت القيمة الثانية 0 ستكون نتائج التنفيذ هكذا


المطلوب:استثناء هذا الخطاء و اظهار رسالة من المبرمج
هكذا..

في أمان الله