【源码】汉字 互转 16制编码

//****************本代码的扩展应用*******************
{
// 将 URL 编码的 UTF-8 字符串还原为汉字
function URLToChinese(const URLStr: string): string;
var
HexStr: string;
begin
HexStr := StringReplace(URLStr, '%', '', [rfReplaceAll]);
Result := HexToChinese(HexStr, False, 65001);
end;

// 示例：
ShowMessage(URLToChinese('%E6%B1%89')); // 输出 "汉"
}

//****************本代码的扩展应用2*******************
{
// 从网络字节流中解析 UTF-8 数据
var
HexStr: string;
Bytes: TBytes;
begin
HexStr := 'E4B8ADE59BBDE4BABA'; // "中国人" 的 UTF-8 编码
Bytes := TEncoding.ANSI.GetBytes(HexStr);
ShowMessage(HexToChinese(HexStr, False, 65001)); // 输出 "中国人"
end;
}