十进制转换二进制问题，急急

Question

D5中没有，需要自己写。
D6中是IntToBin。

Answer 1

function IntToBin(Value: cardinal): string;
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;

Answer 2

D6真伟大，不知BCB6是否一样？

Answer 3

D6真伟大，不知BCB6是否一样？

Answer 4

Function IntToBin(iInputValue:integer):string;
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;

Answer 5

function octtobin(i:integer):string;
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;

Answer 6

这是一个非常简单编程问题，应该是在校生的一个初级问题
即使Delphi没有提供这个函数，但是自己也可以编写一个函数啊
看一看最基础的语言编程，了解了十进制和二进制之间相互转换的原理，就可以搞定了。
总之一句话，不要过分的依赖于Delphi给你提供的函数，要自己想一想这个原理是怎样的？
我现在发觉一个问题：Delphi用得越多，我感觉自己快弱智了！！因为：我用Delphi只知道这样做，但是没有告诉我控件里面究竟是发生一个怎样的过程！！