关于十六进制转十进制

//如果十六进制非字符串, 无须转换, 直接赋值即可
var

i: Integer;
begin

i := $FF;

ShowMessage(IntToStr(i)); {255}
end;



//如果十六进制是字符串, 用 StrToInt 即可
var

s: string;

i: Integer;
begin

s := '$FF';

i := StrToInt(s);

ShowMessage(IntToStr(i)); {255}
end;



//如果十六进制是字符串, 但缺少 $ , 加上就是
var

s: string;

i: Integer;
begin

s := 'FF';

i := StrToInt(#36 + s);

ShowMessage(IntToStr(i)); {255}
end;