没有,可以参考这个:
function HexStrToInt(str:AnsiString):integer;//把16进制的字符串转换成10进制整数
const HEX:array['a'..'f'] of integer = (10,11,12,13,14,15);
var
aInt,i : integer;
begin
aInt := 0;
for i := 1 to Length(str) do
begin
if (str < 'a') then
aInt := aInt*16+Ord(str)-48
else
aInt := aInt*16+HEX[str];
end;
result:= aInt;
end;