+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في عدم قبول المكون edit ارقام اكثر من 9 (/showthread.php?tid=10705)
مشكل في عدم قبول المكون edit ارقام اكثر من 9 - medreg - 15-03-2020
السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير
RE: مشكل في عدم قبول المكون edit ارقام اكثر من 9 - ghostdz - 16-03-2020
(15-03-2020, 10:43 PM)medreg كتب : السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير
وعليكم السلام ورحمة الله تعالى وبركاته
في الحالة الإفتراضية edit عدد الحروف التي يستقبلها غير محدود إلا إذا قمت بتغيير قيمة MaxLength حيث في الحالة الإفتراضية تكون 0
ويمكنك جعله يقبل الأرقام فقط بتغيير قيمة NumbersOnly إلى True
RE: مشكل في عدم قبول المكون edit ارقام اكثر من 9 - medreg - 16-03-2020
السلام عليكم ورحمة الله تعالى وبركاته
هذا الكود وضعته للمقارنة بين الرقم الموجود بالأديت والحقل 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;RE: مشكل في عدم قبول المكون edit ارقام اكثر من 9 - ghostdz - 16-03-2020
حسب ما فهمت من قولك المشكل ليس في عملية الإدخال إنما في المقارنة
حسب ظني أن المشكل في عملية التحويل من string إلى integer ، حيث يجب أن تأخذ في الحسبان نوع الحقل
إستخدم StrToInt64 عوضا عن StrToInt