طريقة لمنع ادخال الاحرف مع التاكد من القيم ان كانت صحيحة
#1
السلام عليكم ورحمة الله وبركاته
اريد رايكم في هده الطريقة للتاكد من المدخلات في 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;
الرد
#2
السلام عليكم انصحك باستخدام CurrencyEdit هناك العديد من المكونات توفره مكونات Jedi مكونات Devexpress انا عن نفسي استخدم مكون
TCurrencyEdit من مكونات RxLib
كود :
http://www.micrel.cz/RxLib/
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد
#3
المكونات تساعد كثيرا لكن المشكلة هي ان بعض المكونات غير مجانية
الشيئ الثاني بعض الاحيان عندما تحتاج تعدل على البرنامج في جهاز اخر او تعيد تنصيب جهازك 
راح تحتاج لتنصيب المكون ثانيا
او عندما تقوم بتحديث الدالفى الى نسخ احدث بعض المكونات تاخذ وقت اطول لحين صدور نسخة موافقة للاصدار.
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف