关于十六进制转十进制

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

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;