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