خطأ في حال إدخال حرفي أو null

الرجاء يا أخوان

طيب ما هي البيئة التي تعمل عليها؟ هل هي VC.NET؟

أبسط الحلول هو أن يكون تكون الدالة ToDouble تقوم برمي Exception في حالة عدم القدرة على التحويل, و من الـ catch يمكنك أن تقوم بعملية إسناد صفر للمتغيرات.

لماذا بدل المسح. تقوم بتصفير القيمة . بالضرب في صفر او اسناد صفر؟

الله يعطيكم العافية - انا استخدم borland 5

و أحاول أن أعدل الكود حيث أن المستخدم يجب أن يقوم بإدخال أرقام فقط و لا يقبل منه البرنامج إدخال حروف.

آمل مساعدتكم و شكراً لكم

أخي فهد لم أفهم قصدك -

عملية المسح من المستخدم تكون و انا لا أتحكم بها - حيث أن المستخدم لو مسح محتوى الحقل تظهر له رسالة خطأ و حليتها بالشرط التالي:

if ( Edit16->Text == " " || Edit16->Text =="")

{

Edit16->Text = 0;

}

و لكن تبقى مشكلة لو أن المستخدم أدخل حرق بدل رقم - سيظهر الخطأ مره أخرى - و أرغب في مساعدتكم كيف أجعل البرنامج لا يقبل حروف و في حال أدخل المستخدم حرف يقوم البرنامج بإستبدالة بصفر .

شكراً لك أخي فهد

تسطيع منع المستخدم من أدخال غير الرقم .

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
	 if(!isdigit(Key)&& Key != VK_BACK ){
	 Key = 0;


	 }
}

هذا السطر يسمح بالارقام وبالمسح

لاحظ في الحدث KeyPress

أخي فهد الله يعطيك العافية

الإدخال ممكن يكون عشري و جربت هذي الطريقة و لكن فقط يسمح لـ int و لا يسمح للإدخال العشري float

هل أستطيع تغيير الكود لكي يقبل الإدخال العشري

أكتب في الشرط :

!isdigit(Key)&& Key != VK_BACK && Key !='.'

فهد الله يعطيك العافية و يسعدك دنيا و آخرة - الحمد لله ضبط الكود و البرنامج كمان.

الحمد لله