طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة

[taha moh]

السلام عليكم ورحمة الله وبركاته

اريد رايكم في هده الطريقة للتاكد من المدخلات في 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;

[S.FATEH]

السلام عليكم انصحك باستخدام CurrencyEdit هناك العديد من المكونات توفره مكونات Jedi مكونات Devexpress انا عن نفسي استخدم مكون
TCurrencyEdit من مكونات RxLib

كود :

http://www.micrel.cz/RxLib/

[taha moh]

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