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;
转载于:https://www.cnblogs.com/fyen/archive/2010/12/19/1910480.html