用delphi 7写以个16进制字符串转换成中文汉字格式的代码

以下是 Delphi 7 中将 16 进制字符串转换为中文汉字格式的代码：

function HexToUnicode(const HexStr: string): string;
var
  I: Integer;
  Hex: string;
  HexCode: Integer;
begin
  Result := '';
  Hex := '';
  I := 1;
  while I <= Length(HexStr) do
  begin
    if HexStr[I] in ['0'..'9', 'A'..'F', 'a'..'f'] then
    begin
      Hex := Hex + HexStr[I];
      if Length(Hex) >= 4 then
      begin
        HexCode := StrToInt('$' + Hex);
        if (HexCode >= $4E00) and (HexCode <= $9FA5) then
          Result := Result + WideChar(HexCode);
        Hex := '';
      end;
    end;
    Inc(I);
  end;
end;

这个函数的参数 `HexStr` 是一个 16 进制字符串，函数返回一个 Unicode 编码格式的字符串。

使用方法：

var
  HexStr: string;
  UnicodeStr: string;
begin
  HexStr := '4E2D4E00'; // 16 进制字符串
  UnicodeStr := HexToUnicode(HexStr); // 转换为 Unicode 编码字符串
  ShowMessage(UnicodeStr); // 弹出对话框显示中文汉字
end;

以上代码仅供参考，具体实现方式可以根据实际需求进行调整。