超短精简进制转换 (二进制/十进制/十六进制)

最新推荐文章于 2020-10-31 15:17:12 发布

weixin_33720956

最新推荐文章于 2020-10-31 15:17:12 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/rogee/archive/2010/09/20/1831998.html

本文详细介绍了十六进制到十进制、十进制到二进制及二进制到十进制的转换方法，并提供了具体的Delphi语言实现代码。通过这些代码，读者可以更好地理解不同数制之间的转换原理。

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

//十六进制(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;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1831998.html