注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi进制转换(二进制/十进制/十六进制)  

2013-07-01 14:38:52|  分类: delphi xe4 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Delphi进制转换(二进制/十进制/十六进制)

一、完全用API完成:..uses Windows;
function IntToStr(I: integer): string;
begin
   Str(I, Result);
end;

function StrToInt(S: string): integer;
begin
Val(S, Result, Result);
end;

function HexToInt(Const HexValue: String) : Integer;
begin
   Val('$'+HexValue, Result, Result);
end;

function IntToHex(Const Value: Integer): string;
const
   HexChars: array[0..15] of Char = '0123456789ABCDEF';
var
   iTemp: Integer;
   i: Integer;
begin
   Result := '';
   i := 0;
   while i<4 do
   begin
     case i of
       0: iTemp := Value shr 24 and $FF;
       1: iTemp := Value shr 16 and $FF;
       2: iTemp := Value shr 8 and $FF;
       3: iTemp := Value and $FF;
     end;
     Result := Result + HexChars[iTemp div 16];
     Result := Result + HexChars[iTemp mod 16];
     Inc(i);
   end;
end;

function LowerCase(const S: string): String;
begin
   Result:=CharLower(Pchar(S));
end;

function UpperCase(const S: string): String;
begin
   Result:=CharUpper(Pchar(S));
end;


二、函数实现

//十进制 to 二进制
function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Size-1 downto 0 do begin
    if Value and (1 shl i)<>0 then begin
       Result:=Result+'1';
end else begin
       Result:=Result+'0';
end;
end;
end;

//二进制 to 十进制

function BintoInt(Value:   String):   LongInt;
var
      i,Size:   Integer;
begin
      Result:=0;
      Size:=Length(Value);
      for   i:=Size   downto   1   do
      begin
          if   Copy(Value,i,1)='1'   then
              Result:=Result+(1   shl   (Size-i));
      end;
end;

function floatBintoInt(Value:   String):   real;
var
      i,Size:   Integer;
begin
      Result:=0;
      Size:=Length(Value);
      for   i:=Size   downto   1   do
      begin
          if   Copy(Value,i,1)='1'   then
              Result:=Result+1/(1   shl i);
      end;
end;

//十六进制 to 二进制

function HextoBinary(Hex:string):string;
const
    BOX: array [0..15] of string =
         ('0000','0001','0010','0011',
          '0100','0101','0110','0111',
          '1000','1001','1010','1011',
          '1100','1101','1110','1111');
var
    i:integer;
begin
    for i:=Length(Hex) downto 1 do
        Result:=BOX[StrToInt('$'+Hex[i])]+Result;
end;

//十六进制 to 十进制 浮点型
function HextoFloat(s:string):real;
var b,temp:string;
    e:integer;
    f:real;
begin
b:=HextoBinary(s);
temp := copy(b,2,8);
e:=BintoInt(temp)-127;
temp := copy(b,10,23);
f := 1+floatBintoInt(temp);
if(copy(b,1,1)='0')then
    result := power(2,e)*f
else
    result :=-power(2,e)*f;
end;

  评论这张
 
阅读(386)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017