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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كتابة قيم هكس بدل الحروف في الكابشن (/showthread.php?tid=7392)

كتابة قيم هكس بدل الحروف في الكابشن - faiz - 09-01-2016

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

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

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

RE: كتابة قيم هكس بدل الحروف في الكابشن - merzoug2020 - 09-01-2016

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

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

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

RE: كتابة قيم هكس بدل الحروف في الكابشن - omf_12000 - 10-01-2016

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

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

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

RE: كتابة قيم هكس بدل الحروف في الكابشن - merzoug2020 - 10-01-2016

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

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

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

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

RE: كتابة قيم هكس بدل الحروف في الكابشن - faiz - 12-01-2016

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

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

RE: كتابة قيم هكس بدل الحروف في الكابشن - omf_12000 - 14-01-2016

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

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