学步园

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

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