怎样把hex转化为string或数字

Question

function CharToInt(c:char):integer;
begin
  case c of
    '0'..'9':Result:=Byte(c)-Byte('0');
    'a'..'f':Result:=10+Byte(c)-Byte('a');
    'A'..'F':Result:=10+Byte(c)-Byte('A');
    else Result:=0;
  end;
end;function HexToInt(s:string):integer;
var
  i,r:integer;
begin
  r:=0;
  for i:=1 to Length(s) do r:=r*16+CharToInt(s[i]);
  Result:=r;
end;

Answer 1

用Delphi内函数就可以做到.如InttoStr(),在计算机中整数本来就是Hex存储的.
如果是Hex形式的String 可以用StrToInt('$'+String参数)形式得到Integer型.
如是Integer可用InttoHex(Integer参数,位数)得到Hex形式String.
如是BCD码形式的Integer ,可用 StrToInt(InttoHex(BCD码参数,位数))得到Integer.