delphi 十六进制转十进制

2019年3月20日 292次阅读来源: 进制转换

//需引用Math单元，Decjg 需定义成全局变量 function TFrm_Main.HextoDec(s:string):Double; var strlen:integer; Lstr,Rstr:string; partf:Extended; begin strlen:=Length(s) div 2; if Length(s)>0 then begin Rstr:=RightStr(s,2); Lstr:=LeftStr(s,Length(s)-2); partf:=Length(Lstr) div 2; partf:=Power(16,partf); partf:=StrToInt(‘$’+Rstr)*partf; DecJg:=DecJg+partf; HextoDec(Lstr); end; Result:=DecJg; end;

注：以上函数是两个字符做为一个字节，若一个字符一个字节，需要将div 2去掉

    原文作者：进制转换
    原文地址: https://blog.csdn.net/baronyang/article/details/5400816
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。