这不需要写函数.
//如果十六进制非字符串, 无须转换, 直接赋值即可
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;
posted on 2008-03-19 15:20  万一  阅读(6011)  评论(23编辑  收藏  举报