您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中16进制字符转换为10进制

时间:2011/9/3 15:34:50 点击:

  核心提示:FunctionHexToDec(constValue:Integer):string;vars:string;begins:='$'+IntToStr(Value);Result:=InToStr(...
Function HexToDec(const Value :Integer ) : string;
var
s : string;
begin
  s := '$' + IntToStr(Value);
  Result := InToStr(StrToInt(s));
end;

(2)方法2
Funtion HexToDec(const Value :Integer) : string;
CONST HEX : ARRAY['A'..'F'] OF INTEGER = 
(10,11,12,13,14,15);
VAR
  str : String;
  In : Integer;
  i : integer;
BEGIN
  Str := UpperCase(IntToStr(Value));
  Int := 0;
  FOR i := 1 TO Length(str) DO
    IF str[i] < 'A' THEN
    Int := Int * 16 + ORD(str[i]) - 48
  ELSE
    Int := Int * 16 + HEX[str[i]];
  
  Result := IntToStr(Int);
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号