كتابة قيم هكس بدل الحروف في الكابشن
|
كتابة قيم هكس بدل الحروف في الكابشن
|
09-01-2016, 05:09 PM
(آخر تعديل لهذه المشاركة: 09-01-2016, 09:51 PM بواسطة kachwahed.
تعديل السبب: الوسم code
)
عند اسخدام هذة الطريقة نجحت ولاكن لا تقيل حروف هكس abcdef
كود : form1.labl1.caption:= chre( 101) + chre( 84)chre( 67) ;ارجو الافادة وجزيتم خيرا
09-01-2016, 08:15 PM
(آخر تعديل لهذه المشاركة: 09-01-2016, 08:15 PM بواسطة merzoug2020.)
لم أفهم قصدك أخي
كيف لا تقيل حروف هكس abcdef والله مافهمتك أخي أشرح أكثر
10-01-2016, 08:53 PM
السلام عليكم
استخدم هذا الكود: كود : Edit1.Text:=IntToHex(123,4);في هذا المثال: IntToHex تحول الرقم 123 الى hexadecimal وتطلع الناتج على هيئة string مكون من 4 خانات، يمكنك تغيير عدد الخانات بتغيير الرقم 4
O. M. Fares
نعم ولكن مثال . نأخذ EDIT1.TEXT الرقم الذي يضعه المستخدم و EDIT2.TEXT الناتج الذي تحتاجه أنت و BUTTON1 في ONCLICK نضع هكذ
كود : edit2.text:=inttohex(strtoint(edit1.text),length(edit1.text))و هاذا مثال على ذالك كود : http://www.mediafire.com/download/u7pc619m6fr4jou/test.rar
12-01-2016, 06:15 PM
تسلم اخي العزيز
ولاكن اما اريد ادخال القيمة الهكس راساً بدون التحويل الى عشري متلاً هكذا 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 تحياتي...! ع. م. فارس
O. M. Fares
|
|
|
