delphi 16进制转字符

在 Delphi 中，可以通过以下代码将一个十六进制字符串转换为字符：

function HexToChar(const Hex: string): Char;
var
  Code: Integer;
begin
  Code := StrToInt('$' + Hex);
  Result := Chr(Code);
end;

使用示例：

var
  HexStr: string;
  Ch: Char;
begin
  HexStr := '41'; // 十六进制字符串 '41' 表示 ASCII 码值为 65 的字符 'A'
  Ch := HexToChar(HexStr);
  ShowMessage(Ch); // 显示 'A'
end;

注意：这里假设输入的十六进制字符串是有效的，否则可能会出现异常。