+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في اظهار النتيجة (/showthread.php?tid=10403)
مشكل في اظهار النتيجة - salah07230 - 24-08-2019
السلام عليكم
عندي مشكل في هذا الكود بعد التنفيذ
PHP كود :
Edit2.Text:=Edit2.Text+Format('%0x', [StrToInt(Edit1.Text)]);
يعطيني النتيجة
من 009765 الى 2625
والصحيحة هي 002625
يعني لاتوجد اصفار في الاول (00)
وشكرا لكم
RE: مشكل في اظهار النتيجة - samir28 - 25-08-2019
وعليكم السلام
جرب
formt %U
RE: مشكل في اظهار النتيجة - sofiane201 - 25-08-2019
PHP كود :
Format('%.6x', [StrToInt(Edit1.Text)]);
RE: مشكل في اظهار النتيجة - salah07230 - 25-08-2019
بارك الله فيك اخي لكن الكود لايعمل
RE: مشكل في اظهار النتيجة - samir28 - 25-08-2019
(25-08-2019, 11:50 AM)salah07230 كتب : بارك الله فيك اخي لكن الكود لايعمل
PHP كود :
edit2.Text:=Format('%U', [StrToInt(Edit1.Text)]);
اعذرني
اخطات في فهم السؤال
ظننت انك تريد التخلص من الاصفار
format %.4x
نجحت معي
RE: مشكل في اظهار النتيجة - salah07230 - 25-08-2019
بارك الله فيك اخي وجدت حلا اخر
بحساب بعدد الاحرف والارقام ان كان الناتج اقل نزيد 0 او 00
وهذا ايضا نجح معي
format %.4x
ولكن احيانا يعطي رقم كبير
RE: مشكل في اظهار النتيجة - ferrero - 26-08-2019
كود :
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);RE: مشكل في اظهار النتيجة - salah07230 - 26-08-2019
شكرا لك اخي ferrero النتيجة صحيحة 100/100
وانا استخدمت الكود
Edit2.Text:=Edit2.Text+Format('%.6x', [StrToInt(Edit1.Text)]);