delphi 整型转成二进制

function IntToBin(AInt: Integer): string;
begin
  Result := '';
  for var lIndex := 1 to Sizeof(AInt) * 8 do
    Result := Result + (AInt shr (Sizeof(AInt) * 8 - lIndex) and 1).ToString;
end;

 

 转自群里大佬的代码:

 

上面的返回值太长了,所以有了下面的方案二

方案二.

用法：

Str_IntToBin(1,4) = 0001
Str_IntToBin(1,8) = 00000001

Function Str_IntToBin(Int,num: LongInt): String;
Var
  i: Integer;
Begin
  For i := num Downto 1 Do
    Begin
      If Int And (1 Shl (num - i)) <> 0 Then
        Result := '1' + Result
      Else
        Result := '0' + Result;
    End;
End;