جمع رقمين

[Team dz]

سلام عليكم  

كيف اجمع رقيمن بالهكس  

كود :

var   E,F:String;   begin      E:=A.text; //006AFE F:=b.text  ; //  2   B.Text := IntToHex('E') + StrToInt('F')  ;

اريد تعديل الكود   

مطلوب  جمع   006AFE + 2  = 6B00

شكرا لكم

[Ndagor]

يجب الا تخلط بين العمليات  بين نص و الاعداد بالنسبة لعملية الجمع


StrToInt  تقوم بتحويل النص الى عدد صحيح و لتفرق بين نص يمثل عدد Hex و اخر بنظام عشري يجب اظافة الرمز $ الى النص Hex ,,, $006AFE

كود :

B.Text := StrToInt('$'+E) + StrToInt('$'+F)  ; 

 
https://www.delphibasics.co.uk/RTL.php?Name=StrToInt

[Team dz]

اريد تعديل الكود

مطلوب جمع 006AFE + 2 = 6B00

شكرا لكم

[Ndagor]

كود سابق فيه خطا بسيط و لم اجربه

كود :

var F,E:string; begin   F:='2';   E:='6AFE';   B.Text :=IntToHex(StrToInt('$'+E) + StrToInt('$'+F),6);