关于十六进制转十进制 - 回复 MaxCool 的问题

//如果十六进制非字符串, 无须转换, 直接赋值即可
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;