Delphi-UniCode转汉字(\u 格式)、汉字转UniCode(\u 格式)
格式 Delphi 汉字 Unicode
2023-09-14 08:57:11 时间
相关资料:
https://www.cnblogs.com/guorongtao/p/14729102.html 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;
相关文章
- JAVA解析XML格式字符串「建议收藏」
- XPS文件怎么打开?可以转成PDF格式吗?
- delphi xe datasnap 服务器显示客户端,Delphi xe datasnap[通俗易懂]
- Response.ContentType 网页输出word excel 的格式
- C语言输入输出格式符[通俗易懂]
- java XML转JSON格式
- ncm格式怎么转成mp3_音乐格式转换器
- delphi去掉字段前后的引号_Delphi编程SQL语句中引号(‘)、quotedstr()、(”)、format()在SQL语句中的用法…[通俗易懂]
- 怎么转换成html格式_html怎么转换成http
- 高清视频编码格式_如何将高清视频转化为蓝光
- 如何设置导出excel的格式
- Oracle中实现日期格式转换的方法(oracle转换日期格式)
- 解析MSSQL连接格式的简易实用指南(mssql 连接格式)
- JavaScript+CSS控制打印格式示例介绍