مشكل في عدم قبول المكون edit ارقام اكثر من 9
#1
السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير
[-] كل من 1 user says قال شكرا ل medreg على المشاركة المفيدة
  • SOFIANE09
الرد
#2
(15-03-2020, 10:43 PM)medreg كتب : السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير

وعليكم السلام ورحمة الله تعالى وبركاته
في الحالة الإفتراضية edit عدد الحروف التي يستقبلها غير محدود إلا إذا قمت بتغيير قيمة MaxLength حيث في الحالة الإفتراضية تكون 0
ويمكنك جعله يقبل الأرقام فقط بتغيير قيمة NumbersOnly إلى True
الرد
#3
السلام عليكم ورحمة الله تعالى وبركاته
هذا الكود وضعته للمقارنة بين الرقم الموجود بالأديت والحقل Mle التابع للجدول table1
واثناء تنفيذ الأجراء لايقبل اثر من 9 ارقام رغم وضع NumbersOnly الى true
ورغم اعطاء قيمة 20 للـ MaxLength 
كود :
var fch: TForm3;
begin
  fch:=TForm3.create(self);
  if key=#13 then
  begin
    DM.Table1.Open;
    if EdtMle.Text=DM.Table1.Fieldvalues['Mle'] then
    begin
    ArabShowMessage('هذا الرقم موجود من قبل ');
    PanelAjoute.Visible:=false;
    end
    else
    begin
    PanelAjoute.visible:=false;
      with DM do
      begin
      Table1.insert;
      Table1.fieldvalues['Mle']:=strtoint(EdtMle.Text);
      Table1.Post;
      end;
      fch.ShowModal;
      fch.Free;
    end;
  end;
الرد
#4
حسب ما فهمت من قولك المشكل ليس في عملية الإدخال إنما في المقارنة 
حسب ظني أن المشكل في عملية التحويل من string إلى integer ، حيث يجب أن تأخذ في الحسبان نوع الحقل
إستخدم StrToInt64 عوضا عن StrToInt
الرد


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


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