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

在 Delphi 中，可以使用 StrToInt 函数将字符串转换为整数。但是，如果字符串代表一个负数，那么该函数可能会抛出异常。因此，我们需要使用更通用的 StrToUInt64 函数，然后将结果转换为有符号整数类型。以下是一个将 16 进制负数字符串转换为 10 进制整数的示例：

function HexToSignedInt(const AHex: string): Integer;
var
  HexValue: UInt64;
begin
  // 将 16 进制字符串转换为无符号整数
  HexValue := StrToUInt64(AHex, 16);
  // 如果最高位为 1，说明这是一个负数，需要进行补码转换
  if (HexValue and $80000000) = $80000000 then
  begin
    HexValue := not HexValue + 1; // 取反加一得到补码
    Result := -Int64(HexValue); // 转换为有符号整数类型
  end
  else
    Result := HexValue;
end;

使用示例：

var
  HexStr: string;
  DecValue: Integer;
begin
  HexStr := '-FFFF'; // 16 进制负数字符串
  DecValue := HexToSignedInt(HexStr); // 转换为 10 进制整数
  ShowMessage(IntToStr(DecValue)); // 显示结果：-65535
end;

delphixe 2进制负数转10进制

Delphi中可以使用 `StrToInt` 函数将二进制字符串转换为十进制整数。但需要注意的是，如果输入的二进制字符串表示的是负数，那么需要先将其转换为补码表示法，然后再转换为十进制。

下面是一个将二进制负数转换为十进制的 Delphi 函数示例：

function BinToDec(const Bin: string): Integer;
var
  i, n, sign: Integer;
begin
  n := Length(Bin);
  if (n < 2) or (Bin[1] <> '-') then // 检查输入是否合法
    raise Exception.Create('Invalid input.');

  // 将二进制字符串转换为整数
  Result := 0;
  for i := 2 to n do begin
    if Bin[i] = '1' then
      Result := Result or (1 shl (n - i));
  end;

  // 判断符号位
  sign := -1;
  if Bin[2] = '0' then
    sign := 1;

  // 如果是负数，将其转换为补码
  if sign = -1 then
    Result := Result - (1 shl (n - 2));

  // 返回结果
  Result := Result * sign;
end;

使用示例：

var
  BinStr: string;
  DecNum: Integer;
begin
  BinStr := '-1011';
  DecNum := BinToDec(BinStr);
  ShowMessageFmt('%s = %d', [BinStr, DecNum]); // 显示：-1011 = -11
end;