十六进制转换十进制的函数

各位大虾
delphi有没有提供十六进到十进制转换的函数
急用，在线等待

解决方案 »

  1.   

    s := 'ABCD';
    strtoint('$' + s);
      

  2.   

    最好是能在FastReport能调试通过的
      

  3.   

    上面不可能不行的showmessage(IntTostr(StrToint('$'+edit1.text)));
      

  4.   

    在delphi是可以
    但在FastReport脚本不知道该怎么写呢
      

  5.   

    ShowMessage(Format('%0x',[16])) ; //10
      

  6.   

    我都试过了
    有没有在FastReport里调试通过的例子
    delphi里是可以，可在FastReport脚本里没这些函数
    会出现异常啊
      

  7.   

    不好意思，刚查了一下，好象没有HEXTOINT这个函数。有HEXTOBIN转二进制的。就用okgxs(一叶风铃)说的吧
      

  8.   

    大家这么热心，我已经很感激了
    delphi的想关函数我也查了一下
    不过在FastReport的脚本里执行会报错
    因为FastReport的脚本函数没有这些函数
      

  9.   

    Delphi 没有 HextoInt 
    在Delphi 可以
                 strtoint('$' + '2A');
    来把16机制转换成10进制
      

  10.   

    我会用最笨的方便,先把16进制数据转换成10进制存到数据库一个表里,然后在fastreport里取那项的值
      

  11.   

    function HexCharToInt(HexToken : char):Integer; 
    begin 
      {if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);  
      Result:=0;
      if (HexToken>#47) and (HexToken<#58) then       { chars 0....9 }
         Result:=Ord(HexToken)-48
      else if (HexToken>#64) and (HexToken<#71) then  { chars A....F }
         Result:=Ord(HexToken)-65 + 10;
    end;
      

  12.   

    function HexCharToInt(HexToken : char):Integer; 
    这个函数是针对单个字符的转换的
    十六进制都是多位的，好像不太实用
      

  13.   

    showmessage(inttostr(strtointdef('$a0',-1)));
    这个可以。不管是十进制或是十六进制都行。
    另外 windindance(风舞轻扬) 说的确实很简洁也很实用。呵呵。把分给他吧。
    s := 'ABCD';
    strtoint('$' + s);
      

  14.   

    我是要在FastReport脚本里写代码
    这些代码在里面会报错
    不过很感谢各的热心帮助
    我在这样也学到了一些东西
    至少有办法解决现在的问题，虽然笨了点
    小弟在此拜谢了
    这就结贴给分