delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

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

والصحيحة هي 002625

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

وشكرا لكم

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

PHP كود :
Format('%.6x', [StrToInt(Edit1.Text)]); 

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

(25-08-2019, 11:50 AM)salah07230 كتب : [ -> ]بارك الله فيك اخي لكن الكود لايعمل

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

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

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

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

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

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

salah07230