+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة (/showthread.php?tid=9549)
طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة - taha moh - 29-06-2018
السلام عليكم ورحمة الله وبركاته
اريد رايكم في هده الطريقة للتاكد من المدخلات في edit
حتى تمنع من ادخال الاحرف وفي نفس الوقت التاكد من القيمة حتى لايحصل ادخال قيم خاطئة
مع العلم انها تنمع حتى النسخ واللصق
فقط قم بتعريف متغير vakue في الاعلى حتي يحتفظ باخر قيمة صحيحة ادخلت في ال edit
ثم في الحدث onchenge لل edit اضف التالي
كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text = '') then
value := 0;
if not TryStrToFloat(Edit1.Text, value) then
Edit1.Text := FloatToStr(value);
Edit1.SelStart := Length(Edit1.Text);
end;RE: طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة - S.FATEH - 29-06-2018
السلام عليكم انصحك باستخدام CurrencyEdit هناك العديد من المكونات توفره مكونات Jedi مكونات Devexpress انا عن نفسي استخدم مكون
TCurrencyEdit من مكونات RxLib
كود :
http://www.micrel.cz/RxLib/RE: طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة - taha moh - 29-06-2018
المكونات تساعد كثيرا لكن المشكلة هي ان بعض المكونات غير مجانية
الشيئ الثاني بعض الاحيان عندما تحتاج تعدل على البرنامج في جهاز اخر او تعيد تنصيب جهازك
راح تحتاج لتنصيب المكون ثانيا
او عندما تقوم بتحديث الدالفى الى نسخ احدث بعض المكونات تاخذ وقت اطول لحين صدور نسخة موافقة للاصدار.