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

相关问题

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 16进制负数转10进制

在 Delphi 中，可以使用 `StrToInt()` 函数将 16 进制字符串转换为整数，但是该函数不支持负数转换。因此，我们需要先将负数转换为补码形式，然后再将其转换为 10 进制。

以下是一个将 16 进制负数转换为 10 进制的 Delphi 程序示例：

function HexToDec(hex: string): Integer;
var
  i, len: Integer;
  num: Int64;
begin
  // 获取字符串长度
  len := Length(hex);
  // 将字符串转换为整数
  num := StrToInt64('$' + hex);
  // 如果最高位为 1，表示是负数
  if (num and Int64($8000000000000000)) > 0 then begin
    // 将负数转换为补码形式
    num := not num + 1;
    // 转换为 10 进制并取反
    for i := 63 downto 0 do
      if (num and (Int64(1) shl i)) > 0 then
        Result := Result - (Int64(1) shl (63 - i));
  end else begin
    // 转换为 10 进制
    Result := num;
  end;
end;

使用示例：

var
  hex: string;
  dec: Integer;
begin
  hex := 'FFFFFFF7'; // -9 的 16 进制表示
  dec := HexToDec(hex); // 转换为 10 进制
  ShowMessage(IntToStr(dec)); // 显示结果：-9
end;