كتابة قيم هكس بدل الحروف في الكابشن

[omf_12000]

السلام عليكم ورحمة الله وبركاته
يمكنك استخدام هذا الكود:

كود :

procedure TForm1.Button2Click(Sender: TObject); var   int: Int64; begin   Int := StrToInt64(HexDisplayPrefix+Edit1.Text);   Showmessage(IntToStr(Int)); end;

HexDisplayPrefix  لاضافة علامة ($) الى string
تحياتي...!
ع. م. فارس

---

السلام عليكم ورحمة الله وبركاته
يمكنك استخدام هذا الكود:

كود :

procedure TForm1.Button2Click(Sender: TObject); var   int: Int64; begin   Int := StrToInt64(HexDisplayPrefix+Edit1.Text);   Showmessage(IntToStr(Int)); end;

HexDisplayPrefix  لاضافة علامة ($) الى string
تحياتي...!
ع. م. فارس