Question

delphi 16进制怎么转化成string

Answer 1

十进制转换成十六进制可以用函数 InttoHex

十六进制转换成十进制可以参考以下代码：

function Hex2Dec(Hex : string) : string;
var
i : integer;
res : real;
len : integer;
begin
len := length(Trim(Hex));

for i := 1 to len do
begin
case Hex[i] of
'0'..'9': res := res + strToInt(Hex[i]) * power(16,(len-i));
'a'..'f': res := res + (ord(Hex[i]) - ord('a') + 10) * power(16,(len-i));
'A'..'F': res := res + (ord(Hex[i]) - ord('A') + 10) * power(16,(len-i));
end;

end;
result := FloatToStr(res);
end;