谁知道delphi16进制转10进制的数学函数(在线等)(20分)

  • 主题发起人 主题发起人 zz770813
  • 开始时间 开始时间
Z

zz770813

Unregistered / Unconfirmed
GUEST, unregistred user!
谁知道delphi16进制转10进制的数学函数,请详细些,谢谢
 
如:16进制 '1a10'
strtoint('$'+'1a10')即可获得十进制整数
 
HEX -> Integer

var
i : integer
s : string;
begin
s := '$' + ThatHexString;
i := StrToInt(a);
end;

 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2532078

上面不是
楼主你不是提过这问题的吗?
怎么又。。。。。。。。。。
 
一般十六进制是0xxx的形式,你只要传进后面两位就可以了!
function int HexToInt(String Hex)
var
int HighHex;
int LowHex;
begin
HighHex := Int(Char(Hex[0]));
LowHex := Int(Cahr(Hex[1]));
Result := HighHex * 16 + LowHex;
end;
 
后退
顶部