关于十六进制转十进制 - 回复 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;

转载于:https://www.cnblogs.com/del/archive/2008/03/19/1113251.html