مشكل في اظهار النتيجة

[salah07230]

السلام عليكم 

عندي مشكل في هذا الكود بعد التنفيذ

PHP كود :

Edit2.Text:=Edit2.Text+Format('%0x', [StrToInt(Edit1.Text)]); 


يعطيني النتيجة
من 009765 الى 2625

والصحيحة هي 002625

يعني لاتوجد اصفار في الاول (00)

وشكرا لكم

[samir28]

وعليكم السلام
جرب
formt %U

[sofiane201]

PHP كود :

Format('%.6x', [StrToInt(Edit1.Text)]); 


[salah07230]

بارك الله فيك اخي لكن الكود لايعمل

[samir28]

بارك الله فيك اخي لكن الكود لايعمل

PHP كود :

edit2.Text:=Format('%U', [StrToInt(Edit1.Text)]); 


---

اعذرني
اخطات في فهم السؤال
ظننت انك تريد التخلص من الاصفار

---

format %.4x
نجحت معي

[salah07230]

بارك الله فيك اخي وجدت حلا اخر
بحساب بعدد الاحرف والارقام ان كان الناتج اقل نزيد 0 او 00
وهذا ايضا نجح معي
format %.4x
ولكن احيانا يعطي رقم كبير

[ferrero]

كود :

Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);

[salah07230]

شكرا لك اخي ferrero النتيجة صحيحة 100/100
وانا استخدمت الكود
Edit2.Text:=Edit2.Text+Format('%.6x', [StrToInt(Edit1.Text)]);