如何将十进制数转换成二进制数

Question

想把一个十进制数转换成二进制数

Answer 1

http://www.csdn.net/expert/topic/680/680121.xml?temp=.2242548   
  http://www.csdn.net/expert/topic/519/519357.xml?temp=.57185   
  http://www.csdn.net/expert/topic/718/718230.xml?temp=.5810205

Answer 2

function IntToBin(Value: Integer; Count: Integer=32): string;
var
  iTemp: Integer;
begin
  Result := '';
  while Count>0 do
  begin
    iTemp := Value shr (Count-1) and 1;
    case iTemp of
      1: Result := Result+'1';
      0: Result := Result+'0';
    end;
    Dec(Count);
  end;
end;