جمع رقمين - نسخة قابلة للطباعة

جمع رقمين - نسخة قابلة للطباعة

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

جمع رقمين - Team dz - 10-02-2023

سلام عليكم

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

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

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

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

شكرا لكم

RE: جمع رقمين - Ndagor - 10-02-2023

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

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

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

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

RE: جمع رقمين - Team dz - 10-02-2023

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

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

شكرا لكم

RE: جمع رقمين - Ndagor - 11-02-2023

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

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