كيف احول ال hex الى decimal

[jeanjamil]

السلام عليكم
كيف احول ال hex الموجود بهذا الشكل
 4D 54 68 64 00 00 00 06 00 01 00 04 00 F0 4D 54 
الى decimal خانة تلو الاخرى مع الحفاظ على الفراغات
اي
... 104 84 77

[Agmcz]

وعليكم السلام
هكذا

PHP كود :

function HexTo_(Str: string): string;
var
  I: Integer;
begin
  Result := '';
  Str := StringReplace(Str, ' ', '', [rfReplaceAll]);
  for I := 1 to Length(Str) do
  begin
    if I mod 2 = 0 then
      Result := Result + ' ' + IntToStr(StrToInt(HexDisplayPrefix + Str[I-1] + Str[I]));
  end;
end; 


[AX302]

السلام عليكم
كاضافة الى اجابة الاخ فوق يمكنك ايضا هكدا  

كود :

procedure TForm1.Button1Click(Sender: TObject); const MyHex : Array of Byte = [$4D,$54,$68,$64,$00,$00,$00,$06,$00,$01,$00,$04,$00,$F0,$4D,$54]; var   i:integer; Result:string; begin for  i:= Low(MyHex) to High(MyHex) do  begin   Result := Result +' '+ (IntToStr(MyHex[i]));  end;  ShowMessage(Result); end;