15-03-2020, 10:43 PM
16-03-2020, 08:34 AM
(15-03-2020, 10:43 PM)medreg كتب : [ -> ]السلام عليكم ورحمة الله تعالى وبركاته
كيف اجعل المكون edit يقبل اكثر من 9 ارقام اي 15 رقم مثلا
وجزاكم الله عنا كل خير
وعليكم السلام ورحمة الله تعالى وبركاته
في الحالة الإفتراضية edit عدد الحروف التي يستقبلها غير محدود إلا إذا قمت بتغيير قيمة MaxLength حيث في الحالة الإفتراضية تكون 0
ويمكنك جعله يقبل الأرقام فقط بتغيير قيمة NumbersOnly إلى True
16-03-2020, 09:36 AM
السلام عليكم ورحمة الله تعالى وبركاته
هذا الكود وضعته للمقارنة بين الرقم الموجود بالأديت والحقل Mle التابع للجدول table1
واثناء تنفيذ الأجراء لايقبل اثر من 9 ارقام رغم وضع NumbersOnly الى true
ورغم اعطاء قيمة 20 للـ MaxLength
هذا الكود وضعته للمقارنة بين الرقم الموجود بالأديت والحقل 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;16-03-2020, 10:01 AM
حسب ما فهمت من قولك المشكل ليس في عملية الإدخال إنما في المقارنة
حسب ظني أن المشكل في عملية التحويل من string إلى integer ، حيث يجب أن تأخذ في الحسبان نوع الحقل
إستخدم StrToInt64 عوضا عن StrToInt
حسب ظني أن المشكل في عملية التحويل من string إلى integer ، حيث يجب أن تأخذ في الحسبان نوع الحقل
إستخدم StrToInt64 عوضا عن StrToInt