+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نتجنب اخطاء النظام (/showthread.php?tid=6162)
كيف نتجنب اخطاء النظام - mohaa - 08-05-2014
كيف نتجنب اخطاء النظام فمثلا يجب ان نقوم بادخال البيانات اولا ثم نقوم بتخزينها او في editمثلا يجب ان ندخل الا الكلمات اما اذا ادخلنا ارقما تخرج لنا رسالة تنبيه وغير ذلك
كيف نتجنب اخطاء النظام - bassem_43 - 08-05-2014
السلام عليكم
لمعالجة الاخطاء في دالفي توجد طرق مختلفة من بينها استعمال
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 - 09-05-2014
السلام عليكم بارك الله فيك يا اخي لكن بالنسبة ل try ...expect.....finaly
فقد جربتها على دلفي7 لكن لم تعمل لو تعلمني في اي حدث بالضبط اكتبها
كيف نتجنب اخطاء النظام - bassem_43 - 11-05-2014
mohaa كتب :السلام عليكم بارك الله فيك يا اخي لكن بالنسبة ل 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 - 18-05-2014
بارك االله فيك يا اخي لقد كانت مساعدتك جد قيمة
كيف نتجنب اخطاء النظام - bassem_43 - 18-05-2014
وفيك بركة اتمنى الاستفادة
كيف نتجنب اخطاء النظام - souhaib.dz - 29-07-2014
لمنع ظهور الأخطاء من كامل البرنامج :
كود :
---->> public
procedure MyExceptionHandler(Sender : TObject; E : Exception ); // [Crtl + Shift + c]
----->> MyExceptionHandler
// Nothing
----->> onFormCreate
Application.OnException := MyExceptionHandler;