D5中没有,需要自己写。
D6中是IntToBin。
D6中是IntToBin。
解决方案 »
- 如何在保存数据的时候,依然能够操作界面?
- delphi 如何使用TByteDynArray 类型
- cxCheckComboBox能否在下拉列表里设置个弹出菜单?
- 请问,怎样把网络上一个电脑中的共享文件复制到本地硬盘上?
- 请问,如果我想下载一个空间上的一个目录里面的东西,请问如何下载!
- 一个有关treeview与数据库结合的具有通用的问题
- 在delphi7.0中TQuickRep对象怎么找,在线等待!!!!!
- 替换开始菜单的例子
- 我是新手,请问以下错误原因
- 从D7的转到XE4,那些常用的外加单元用不到了
- 数据库问题:通过执行后台的存储过程,在前台生成一个数据集,在DBGRID上显示,请问如何将数据集保存到一张表里面?
- TBDEClientDataSet问题请教!!!答者有分!!!!
var
i: Integer;
begin
SetLength(result, 32);
for i := 1 to 32 do
begin
if ((Value shl (i - 1)) shr 31) = 0 then
result[i] := '0' {do not localize}
else
result[i] := '1'; {do not localize}
end;
end;
var
strEdit:String;
begin
strEdit:='';
while iInputValue>0 do
begin
if (iInputValue Mod 2)=0 then
strEdit:='0'+strEdit
else
strEdit:='1'+strEdit;
iInputValue:=iInputValue Div 2;
end;
Result:=strEdit;
end;
var
j:integer;
s:string;
begin
j:=i;
while j>2 do
begin
if (j mod 2)=1 then
s:='1'+s;
j:=j div 2;
end;
s:=inttostr(j) + s;
result:=s;
end;
function bintooct(k:string):integer;
var
i,j:integer;
s:string;
begin
for i:=0 to length(k)-1 do
begin
s:=copy(k,length(k)-i-1,1);
j:=j + (strtoint(s)*2^i);
end;
result:=j;
即使Delphi没有提供这个函数,但是自己也可以编写一个函数啊
看一看最基础的语言编程,了解了十进制和二进制之间相互转换的原理,就可以搞定了。
总之一句话,不要过分的依赖于Delphi给你提供的函数,要自己想一想这个原理是怎样的?
我现在发觉一个问题:Delphi用得越多,我感觉自己快弱智了!!因为:我用Delphi只知道这样做,但是没有告诉我控件里面究竟是发生一个怎样的过程!!