關於十六進制轉十進制

//如果十六進制非字符串,　無須轉換,　直接賦值即可　
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;