超短精简进制转换
博客专区 > vga 的博客 > 博客详情
超短精简进制转换
vga 发表于1年前
超短精简进制转换
  • 发表于 1年前
  • 阅读 12
  • 收藏 0
  • 点赞 0
  • 评论 0

标题:腾讯云 新注册用户域名抢购1元起>>>   

超短精简进制转换 日期:2006年3月17日 作者:jey 人气:3467 查看:[大字体 中字体 小字体] 进制转换,有谁能有这么详细吗?不是我吹! 精简/短小精悍
网站:网络实验室 Http://www.ontheline.cn 收集与制作: Jey

//十六进制(S)-->>十进制(I) [重写:Jey] function hextoint(s: string): Integer;
begin //$代表16进制 Result:=StrToInt('$'+s); end;

//十进制转换为二进制字符串 [重写:Jey] function inttoBin(i: integer): string; begin while i <>0 do begin //i mod 2取模,再使用format格式化 result:=Format('%d'+result,[i mod 2]); i:=i div 2 end end; //二进制(S)-->>十进制(D) [重写:Jey] uses Math; function hextoint(s: string): Double; begin while Length(s) <>0 do begin //2^(长度-1)次方 if s[1]='1' then Result:=Result+power(2,Length(s)-1); s:=Copy(s,2,Length(s)); end end; //十进制(I)-->>十六进制(S) //D自带函数,Digits长度,一般设4. function IntToHex(Value: Integer; Digits: Integer): string;

//数据(S)-->>二进制(S) //任何数据都是以二进制形式存储的! (转) function conertde(s:string):string; var i:integer; begin for i:=1 to length(s) do result:=result+inttohex(ord(s[i]),2); end;

共有 人打赏支持
粉丝 18
博文 315
码字总数 19199
×
vga
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: