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

عند اسخدام هذة الطريقة نجحت ولاكن لا تقيل حروف هكس abcdef

كود :
form1.labl1.caption:= chre( 101) + chre( 84)chre( 67) ;

ارجو الافادة وجزيتم خيرا

لم أفهم قصدك أخي

كيف لا تقيل حروف هكس abcdef

والله مافهمتك أخي أشرح أكثر

السلام عليكم
استخدم هذا الكود:

كود :
 Edit1.Text:=IntToHex(123,4);

في هذا المثال: IntToHex تحول الرقم 123 الى hexadecimal وتطلع الناتج على هيئة string مكون من 4 خانات، يمكنك تغيير عدد الخانات بتغيير الرقم 4

نعم ولكن مثال . نأخذ EDIT1.TEXT الرقم الذي يضعه المستخدم و EDIT2.TEXT الناتج الذي تحتاجه أنت و BUTTON1 في ONCLICK نضع هكذ

كود :
edit2.text:=inttohex(strtoint(edit1.text),length(edit1.text))

هكذا على ما أضن أنك تبحث أخي
و هاذا مثال على ذالك

كود :
http://www.mediafire.com/download/u7pc619m6fr4jou/test.rar

تسلم اخي العزيز
ولاكن اما اريد ادخال القيمة الهكس راساً بدون التحويل الى عشري

متلاً هكذا
form1.labl1.caption:= chre(06ef) + chre( 5e4d)chre( 00fe

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

كود :
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
تحياتي...!
ع. م. فارس

faiz

merzoug2020

omf_12000

merzoug2020

faiz

omf_12000