delphi xe inttobin

在 Delphi XE 中，可以使用 IntToBin 函数将整数转换为二进制字符串。以下是一个示例：

function IntToBin(Value: Integer; Digits: Integer): string;
var
  i: Integer;
begin
  SetLength(Result, Digits);
  for i := Digits downto 1 do
  begin
    Result[i] := Char(Ord('0') + (Value and 1));
    Value := Value shr 1;
  end;
end;

该函数将整数 `Value` 转换为 `Digits` 位的二进制字符串。例如，`IntToBin(5, 8)` 将返回字符串 `'00000101'`，因为 5 的二进制表示为 `'00000101'`。