delphi 十六进制转十进制

本文介绍了一个用于将十六进制字符串转换为十进制数值的递归算法实现。该函数通过逐字节解析输入字符串,并利用递归调用处理更长的输入来完成转换过程。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值