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

سلام عليكم

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

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

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

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

شكرا لكم

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

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

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

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

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

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

شكرا لكم

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

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

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

Team dz

Ndagor

Team dz

Ndagor