整数显示二进制字符串

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;