+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ادخال عدد طوله اكثر من 12 رقم (/showthread.php?tid=7614)
الصفحات:
1
2
كيف ادخال عدد طوله اكثر من 12 رقم - AbdouProg - 14-03-2016
السلام عليكم و رحمة الله و بركاته
كيف ادخال عدد طوله اكثر من 12 رقم
جربت اعلان
var
x,y : int64
ولكن دون جدوى
رابط محاولتي
كود :
up.harajgulf.com/do.php?id=614618RE: كيف يمكن تصحيح هدا الخطأ جزاكم الله ألف خير - PLANSHARP - 15-03-2016
مع int64 استخدم strtoint64.
RE: كيف يمكن تصحيح هدا الخطأ جزاكم الله ألف خير - Manarsoft - 15-03-2016
لايوجد أي عدد صحيح يبدأ بالصفر
01200 لايساوي 1200
دلفي يقول لك ان الرقم المدخل ليس عددا صحيحا بل هو سلسلة حروف
يجب تعريف الرقم المراد التعامل معه على اساس انه سلسلة حروف لانه يبدا بالصفر
RE: كيف يمكن تصحيح هدا الخطأ جزاكم الله ألف خير - h-farid - 15-03-2016
و عليكم السلام و رحمة الله
كما أشار لك الأخ : أنت تحاول اجراء العملية الحسابية مباشرة على محتوى الـ Edit و الذي هو من نوع نص و ليس رقم.
عليك بتحويله إلى رقم أولا بهذا الشكل :
PHP كود :
x:=strtoint64(edit1.text);
RE: كيف ادخال عدد طوله اكثر من 12 رقم - Delphi4Us - 15-03-2016
كود :
var
X, Y, i : integer ;
begin
X := StrToIntDef(MaskEdit1.Text,12);
Y := StrToIntDef(MaskEdit2.Text,12);
if X <= Y Then
For i:= X To Y Do
Memo1.Lines.Add(IntToStr(i))
Else
For i:= X DownTo Y Do
Memo1.Lines.Add(IntToStr(i));
end;RE: كيف ادخال عدد طوله اكثر من 12 رقم - محمد عبد العزيز - 15-03-2016
كود :
var
i :Integer;
X, Y : int64 ;
begin
X := StrToInt64(MaskEdit1.Text);
Y := StrToInt64(MaskEdit2.Text);
i:= X- Y;
Memo1.Clear;
if i < 0 Then
For i:= 0 To Abs(i) Do
Memo1.Lines.Add(IntToStr(X+i))
Else
For i:= i DownTo 0 Do
Memo1.Lines.Add(IntToStr(X-i));
end;RE: كيف ادخال عدد طوله اكثر من 12 رقم - AbdouProg - 15-03-2016
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
بارك الله فيكم جميعا على الردور وجعله الله في ميزان حسناتكم و ادخلكم جنات النعيم
شكرا للجميع
بارك الله فيك اخي عبد العزيز ولكن العدد صفر لا يظهر في الميمو
RE: كيف ادخال عدد طوله اكثر من 12 رقم - محمد عبد العزيز - 15-03-2016
كود :
var
i :Integer;
X, Y : int64 ;
begin
X := StrToInt64(MaskEdit1.Text);
Y := StrToInt64(MaskEdit2.Text);
i:= X- Y;
Memo1.Clear;
if i < 0 Then
For i:= 0 To Abs(i) Do
Memo1.Lines.Add(Format('%.*d', [12,X+i]))
Else
For i:= i DownTo 0 Do
Memo1.Lines.Add(Format('%.*d', [12,X-i]));
end;RE: كيف ادخال عدد طوله اكثر من 12 رقم - AbdouProg - 15-03-2016
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله و بركاته
بارك الله فيك يأخي الكريم عبد العزيز جعله الله في ميزان حسناتك
فعلا انت متميز ومعاك سوف نتعلم الدالفي فأنا مبتدى في البرمجة
فألف شكر على تعاونك القيم وفقاك الله فيما يحبه و يرضاه
وبارك الله فيك
RE: كيف ادخال عدد طوله اكثر من 12 رقم - محمد عبد العزيز - 15-03-2016
العفو اخي لم اقم سوى بالتعديل على محاولتك لاظهار احد الطرق الصحيحة
بالمناسبة لا يزال هناك خطا بالكود فوق حاول ايجاده