文件名称：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)