如何将16进制转换成10进制？

Question

我公司用到加密狗，读的都是16进制的数，为了方便，我想将其转换成10进制，请教如何转换？有没有函数？

Answer 1

Function HexToInt(P : Pchar) : integer;
begin
  Result := Pinteger(P)^;
end;
这个函数将P指向的前4位字节转换成整数

Answer 2

呵呵，用strtoint就可以了，在16进制数前面加"$"比如：strtoint('$3F')自己也可以写代码解析的，不过比较烦了。

Answer 3

zhangjing1979666(好小子)
谁的不管用？

Answer 4

再改进一下
Function HexToInt(P : Pchar; Bites : integer) : integer;
var
  P1 : Pchar;
begin
  GetMem(P1,Bites);
  StrCopy(P1,P);
  Result := Pinteger(P1)^;
  FreeMem(P1);
end;