كيف نتجنب اخطاء النظام

[mohaa]

كيف نتجنب اخطاء النظام فمثلا يجب ان نقوم بادخال البيانات اولا ثم نقوم بتخزينها او في editمثلا يجب ان ندخل الا الكلمات اما اذا ادخلنا ارقما تخرج لنا رسالة تنبيه وغير ذلك

[bassem_43]

السلام عليكم
لمعالجة الاخطاء في دالفي توجد طرق مختلفة من بينها استعمال
try
تعليمات
exepte
رسالة الخطا

اما بالنسبة لعدم ظهور الا الحروف في edit فاستعمل هدا الكود في الحدث onkey press لل edit :

PHP كود :

procedure TForm2.edt3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['a'..'z','A'..'Z',#8,'.']) then                 // ادخال فقط الاحرف الصغيرة والكبيرة 
showmessage('ادخل الحروف فقط');                       // رسالة خطا تخبرك بادخال فقط الاحروف
key:=#0;
end; 


[mohaa]

السلام عليكم بارك الله فيك يا اخي لكن بالنسبة ل try ...expect.....finaly
فقد جربتها على دلفي7 لكن لم تعمل لو تعلمني في اي حدث بالضبط اكتبها

[bassem_43]

السلام عليكم بارك الله فيك يا اخي لكن بالنسبة ل try ...expect.....finaly
فقد جربتها على دلفي7 لكن لم تعمل لو تعلمني في اي حدث بالضبط اكتبها

اليك مثال عن قسمة اعداد صحيحة رسالة الخطا تظهر عند القسمة على صفر
ضع زر و ثلاث edit وفي حدث الضغط على الزر تضع هدا الكود جرب وسترى النتيجة

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  Edit3.Text:= floattostr((strtofloat(Edit1.Text))/(strtofloat(Edit2.Text)));

except
 showmessage('القسمة على الصفر مستحيلة');
end;
end; 


بالتوفيق

[mohaa]

بارك االله فيك يا اخي لقد كانت مساعدتك جد قيمة

[bassem_43]

وفيك بركة اتمنى الاستفادة

[souhaib.dz]

لمنع ظهور الأخطاء من كامل البرنامج :

كود :

---->> public procedure MyExceptionHandler(Sender : TObject; E : Exception ); // [Crtl + Shift + c] ----->> MyExceptionHandler // Nothing ----->> onFormCreate Application.OnException := MyExceptionHandler;