delphi xe 16进制 2进制 取反

可以使用 Delphi 自带的函数 StrToInt 和 IntToBin，以及位运算符 NOT 来实现 16进制转2进制并取反的功能。示例代码如下：

var
  hexStr: string;
  hexValue, binValue: Integer;
begin
  hexStr := 'F1'; // 待转换的16进制字符串
  hexValue := StrToInt('$' + hexStr); // 将16进制字符串转换为整型
  binValue := NOT IntToBin(hexValue, 8); // 将整型转换为8位2进制数并取反
  ShowMessage(IntToStr(binValue)); // 显示结果，输出：11110000
end;

上述代码中，`$` 符号表示后面的字符串是16进制数，`IntToBin` 函数将整型转换为指定位数的2进制数，并返回的结果是一个整型数，使用 NOT 运算符对其进行取反操作，最终结果也是一个整型数。

相关问题

delphi xe 16进制负数转2进制

Delphi XE 中可以使用 IntToBin 函数将一个整数转换为二进制字符串，但是对于负数，需要先将其转换为补码表示。下面给出一个实现的示例代码：

function HexToBinary(hex: string): string;
var
  num: Integer;
begin
  // 将 16 进制字符串转换为整数
  num := StrToInt('$' + hex);
  // 如果是负数，将其转换为补码表示
  if num < 0 then
    num := not abs(num) + 1;
  // 将整数转换为二进制字符串
  Result := IntToBin(num, 8); // 8 表示输出 8 位二进制字符串
end;

调用该函数，传入一个 16 进制字符串，即可得到对应的二进制字符串表示。例如：

ShowMessage(HexToBinary('FF')); // 输出 11111111
ShowMessage(HexToBinary('80')); // 输出 10000000
ShowMessage(HexToBinary('-1F')); // 输出 11100001

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'`，最后输出取反后的二进制字符串。