java - Delphi SetBit-函数和TBitRange-Java中的类型

Question

我必须在 Java 中实现以下 Delphi 函数，但无论如何 TBitRange 类型让我感到困惑。 Java 中是否有其他替代方案？也许有人可以解释一下这个函数到底在做什么。

谢谢。

const 
     BitsPerByte     = 8;
     BitsPerInteger  = SizeOf(Integer) * BitsPerByte;

type
     TBitRange = Byte;

function SetBit(const Value: Integer; const Bit: TBitRange): Integer;
  begin
     Result := Value or (1 shl (Bit mod BitsPerInteger));
  end;

在我的 Java 中，我将这个 setBit 函数实现为:

 static int bitsPerInteger = Integer.SIZE;
    public int setBit(int value, byte bit)
        {
            int result = value | (1 << (bit % bitsPerInteger));
            return result;
        }

如果我理解正确的话，这个函数返回值的副本，并设置了位置bit处的位。 bitsPerInteger 变量是 Integer.SIZE 并且等于 32。为了测试，我创建了两个变量: byte bits = 0x34;它等于 52 作为 Integer 且 int value = 4;。指令位%bitsPerInteger；在这种情况下交付 20 和值(value) | (1 << (bits % bitsPerInteger)) 将值的第 20 位设置为 1，则等于 1048576。所以我将这两个变量作为参数传递，然后得到 1048576。是这样吗？

为什么需要传递一个Byte类型的变量作为位位置的参数，然后通过mod操作获取位字符串中的实际位位置参数值？我们能否不使用 Integer 来指示 value 中的位位置？

Answer 1

理想情况下TBitRange应该是一个子范围，例如:

type
  TBitRange = 0..31;

子范围在编译时强制执行。
Java 没有子范围，因此没有等效项。

您可以按如下方式声明该函数:

public static int SetBit(final int Value, final byte Bit)
{
    assert bit >= 0;
    assert bit <= 31;   
    final int shift = 1 << Bit;
    return Value | shift;
}

不幸的是，断言仅在运行时检查。

但是，在您之前删除的问题中，您将 TBitRange 定义为:

type
  TBitRange = Byte; 

Java 中的 byte 类型是有符号的，而 Delphi 中的 byte 类型是无符号的。 Java 中没有无符号 8 位 int。出于问题的目的，尽管签名的 Java 字节可以正常工作。

关于shl
Delphi 的 shl/shr​​ 遵循 x86 语义，因此对于整数来说以 32 环绕。因此，mod BitsPerInteger 部分毫无意义。该语言已经按照其规范执行此操作(即 someint shl 32 是一个无操作)。

Java does the same thing所以在Java中也不需要mod。

what is this function doing exactly?

就像标签上所说的那样:它有点凝固。
整数是 32 位类型。
这意味着变量中有 32 位(开/关开关，也称为 boolean 值)。
这些编号从 0 到 31。
如果您想节省空间，您可以利用这一事实在单个整数中存储 32 个 boolean 值，而不必使用 32 个变量。这会将 32 字节压缩为 4 字节；减少 8 倍。
在 Delphi 中，我们通常使用一组...来实现此目的。 Java 没有集合，因此您必须使用位域来代替。

位域实际上是一个压缩的 boolean 数组，但由于位域没有数组语法，因此您必须使用函数来代替。

BoolArray[8]:= true -> BitField:= SetBit(BitField,8);
if BoolArray[8] then ... -> if GetBit(BitField,8) then ...  

显然，在 Delphi 中，您可以使用属性来模拟这一点:

TBitField = record
private
  FStorage: integer;
  function GetBit(Index: TBitRange): boolean;
  procedure SetBit(Index: TBitRange; const Value: boolean);
public
  property IsTrue[Index: TBitRange]: boolean read GetBit write SetBit;
end;

Properties 是 Java 所没有的另一件事，因此在 Java 中确实不可能实现这种假数组技巧。