Delphi UniCode转汉字(\u 格式)、汉字转UniCode(\u 格式)
Delphi UniCode转汉字(\u 格式)、汉字转UniCode(\u 格式)
1、UniCode转汉字
function UnicodeToChinese(sStr: string): string;
var
i: Integer;
index: Integer;
temp, top, last: string;
begin
index := 1;
while index >= 0 do
begin
index := Pos('\u', sStr) - 1;
if index < 0 then //非 unicode编码不转换 ,自动过滤
begin
last := sStr;
Result := Result + last;
Exit;
end;
top := Copy(sStr, 1, index); // 取出 编码字符前的 非 unic 编码的字符,如数字
temp := Copy(sStr, index + 1, 6); // 取出编码,包括 \u,如\u4e3f
Delete(temp, 1, 2);
Delete(sStr, 1, index + 6);
Result := Result + top + WideChar(StrToInt('$' + temp));
end;
end;
2、汉字转UniCode
function ChineseToUniCode(sStr: string): string; //汉字的 UniCode 编码范围是: $4E00..$9FA5 作者:滔Roy
var
w:Word;
hz:WideString;
i:Integer;
s:string;
begin
hz:=sStr;
for i:=1 to Length(hz) do begin
w := Ord(hz[i]);
s:=IntToHex(w, 4);
Result := Result +'\u'+ LowerCase(s);
end;
end;
3、示例:
var
s,s1,s2 : string;
begin
s1 := '滔Roy';
s2 := '\u6ed4\u0052\u006f\u0079';
s:=ChineseToUniCode(s1); {汉字到 UniCode 编码}
s:=UnicodeToChinese(s2); { UniCode 编码到汉字}
end;
创建时间:2021.05.04 更新时间:
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助,谢谢!
分类:
Delphi C类型
, Delphi 编码/格式
标签:
Delphi
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本
· C#/.NET/.NET Core优秀项目和框架2025年2月简报
2020-05-04 Delphi WinAPI SetJob-暂停、继续、取消或重新启动指定打印机上的打印作业。
2020-05-04 Delphi WinAPI FindFirstPrinterChangeNotification 和FindNextPrinterChangeNotification
2020-05-04 Delphi WinAPI WaitForSingleObject-等待函数-等待指定对象处于有信号状态或超时间隔结束。
2020-05-04 Delphi WinAPI WaitForPrinterChange
2020-05-04 Delphi System单元-编译期函数(Dec,Inc,Odd,Pred,Succ,Ord,Chr,Low,High,Sizeof)
2020-05-04 Delphi WinAPI EnumJobs -枚举打印队列中的作业