【文件属性】:
文件名称:Delphi 二进制转换为十进制.rar
文件大小:7KB
文件格式:RAR
更新时间:2022-07-30 04:47:12
Delphi源码-界面编程
Delphi7.0 如何将二进制转换为十进制呢?相信这个实例源码包会帮你大忙,用户输入任意二进制数,单击转换按钮,会立即显示出十进制数据.
function TForm1.BintoOct(L: string): integer;
var
i, j, t: integer;
C: char;
begin
t := 1;
j := length(L);//提取最后一位
j := 0 (ord(L[j]) - ord('0')) * t;
for i := length(L) - 1 downto 1 do //倒循环
begin
C := L[i];
t := t * 2;//转换为2进制数
j := j ((ord(C) - ord('0')) * t);
end;
result := j;
end;
更完整的代码请下载源码包.
【文件预览】:
srcfans.com
----二进制转换为十进制()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(5KB)