delphi11 2进制转16进制再转字符串

在 Delphi 中，可以使用 `IntToHex` 函数将一个整数转换为对应的 16 进制字符串。如果你要将一个二进制数转换为 16 进制字符串，可以先将其转换为整数，再使用 `IntToHex` 函数进行转换。然后，使用 `Chr` 函数将每个 16 进制数转换为对应的 ASCII 字符，最终将所有字符拼接起来即可。以下是一个示例代码：

function BinaryToHexStr(const Binary: string): string;
var
  I: Integer;
  HexStr: string;
begin
  Result := '';
  for I := 1 to Length(Binary) div 8 do begin
    HexStr := IntToHex(BinStrToInt(Copy(Binary, (I - 1) * 8 + 1, 8)), 2);
    Result := Result + Chr(StrToInt('$' + HexStr));
  end;
end;

其中 `BinStrToInt` 函数可以将一个二进制字符串转换为对应的整数，`StrToInt` 函数可以将一个字符串转换为对应的整数。如果需要将一个十六进制字符串转换为对应的二进制字符串，则可以使用 `HexToBin` 函数。