delphi 16进制负数转2进制

Delphi 中可以使用 IntToBin 函数将一个整数转换为二进制字符串。但是，对于负数，需要先将其转换为补码表示，再将补码转换为二进制。

以下是将一个负数转换为二进制的示例代码：

function NegToBin(n: Integer): string;
var
  b: string;
  i: Integer;
begin
  // 转换为补码
  n := not n + 1;

  // 转换为二进制字符串
  b := IntToBin(n);

  // 去除多余的位数
  while (Length(b) > 1) and (b[1] = '0') do
    Delete(b, 1, 1);

  // 添加符号位
  if n < 0 then
    b := '1' + b
  else
    b := '0' + b;

  Result := b;
end;

示例：

ShowMessage(NegToBin(-10)); // 显示 11110110

相关问题

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;

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