delphi 16进制 2进制 取反

在 Delphi 中，可以使用 `IntToBin` 函数将一个数值转换为二进制字符串，然后对字符串进行取反操作。

以下是一个将 16 进制数转换为对应的二进制字符串，并对其进行取反操作的示例代码：

var
  hexValue: Integer;
  binaryStr: string;
  i: Integer;
begin
  hexValue := $A5; // 16 进制数值
  binaryStr := IntToBin(hexValue, 8); // 转换为 8 位二进制字符串
  for i := 1 to Length(binaryStr) do
  begin
    if binaryStr[i] = '0' then
      binaryStr[i] := '1'
    else
      binaryStr[i] := '0';
  end;
  ShowMessage(binaryStr);
end;

在上述代码中，我们首先将 16 进制数值 `$A5` 转换为 8 位二进制字符串，然后使用 for 循环遍历字符串中的每个字符，将 `'0'` 替换为 `'1'`，将 `'1'` 替换为 `'0'`，最后输出取反后的二进制字符串。