Delphi UniCode转汉字（\u 格式）、汉字转UniCode（\u 格式）
2021-05-28 10:06
标签：rto class bsp 取出 eset index highlight unicode编码 编码范围 Delphi UniCode转汉字（\u 格式）、汉字转UniCode（\u 格式） 1、UniCode转汉字 2、汉字转UniCode 3、示例: 创建时间：2021.05.04 更新时间： Delphi UniCode转汉字（\u 格式）、汉字转UniCode（\u 格式） 标签：rto class bsp 取出 eset index highlight unicode编码 编码范围 原文地址：https://www.cnblogs.com/guorongtao/p/14729102.htmlfunction 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
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;
var
s,s1,s2 : string;
begin
s1 := ‘滔Roy‘;
s2 := ‘\u6ed4\u0052\u006f\u0079‘;
s:=ChineseToUniCode(s1); {汉字到 UniCode 编码}
s:=UnicodeToChinese(s2); { UniCode 编码到汉字}
end;
文章标题：Delphi UniCode转汉字（\u 格式）、汉字转UniCode（\u 格式）
文章链接：http://soscw.com/index.php/essay/88626.html