delphi 十六进制转十进制

//需引用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去掉