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

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