首页 > 其他 > 详细

2进制,8进制,16进制转10进制的自定义函数

时间:2014-12-16 22:17:21      阅读:373      评论:0      收藏:0      [点我收藏+]

1.2进制转10进制自定义函数:

function DecToInt(temp:string):integer; //2进制转10进制
var
  i,j  : Integer;
begin
  result := 0;
  j   := Length(temp);  //取得字符串长度;
  for I := 0 to Length(temp)-1 do
  begin
    result := result+strtoint(Copy(temp,j,1))*Trunc(power(2,I));  //Trunc 把Extended转为int64类型
    Dec(j);   //递减,相当于 j := j-1;
  end;
    // ShowMessage(IntToStr(result));
end;

 

2进制,8进制,16进制转10进制的自定义函数

原文:http://www.cnblogs.com/delphiclub/p/4168002.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!