08-05-2014, 11:48 AM
كيف نتجنب اخطاء النظام فمثلا يجب ان نقوم بادخال البيانات اولا ثم نقوم بتخزينها او في editمثلا يجب ان ندخل الا الكلمات اما اذا ادخلنا ارقما تخرج لنا رسالة تنبيه وغير ذلك
08-05-2014, 11:48 AM
08-05-2014, 11:01 PM
السلام عليكم
لمعالجة الاخطاء في دالفي توجد طرق مختلفة من بينها استعمال
try
تعليمات
exepte
رسالة الخطا
اما بالنسبة لعدم ظهور الا الحروف في edit فاستعمل هدا الكود في الحدث onkey press لل edit :
لمعالجة الاخطاء في دالفي توجد طرق مختلفة من بينها استعمال
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;
09-05-2014, 03:19 PM
السلام عليكم بارك الله فيك يا اخي لكن بالنسبة ل try ...expect.....finaly
فقد جربتها على دلفي7 لكن لم تعمل لو تعلمني في اي حدث بالضبط اكتبها
فقد جربتها على دلفي7 لكن لم تعمل لو تعلمني في اي حدث بالضبط اكتبها
11-05-2014, 03:05 PM
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;
18-05-2014, 02:31 PM
بارك االله فيك يا اخي لقد كانت مساعدتك جد قيمة
18-05-2014, 09:21 PM
وفيك بركة اتمنى الاستفادة
29-07-2014, 11:30 AM
لمنع ظهور الأخطاء من كامل البرنامج :
كود :
---->> public
procedure MyExceptionHandler(Sender : TObject; E : Exception ); // [Crtl + Shift + c]
----->> MyExceptionHandler
// Nothing
----->> onFormCreate
Application.OnException := MyExceptionHandler;