首页 > 其他分享 >Delphi-UniCode转汉字(\u 格式)、汉字转UniCode(\u 格式)

Delphi-UniCode转汉字(\u 格式)、汉字转UniCode(\u 格式)

时间:2023-04-02 14:33:52浏览次数:32  
标签:index begin string sStr 汉字 UniCode 格式

 

相关资料:

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;

 

 

 

 

翻译

搜索

复制

<iframe height="240" width="320"></iframe>

标签:index,begin,string,sStr,汉字,UniCode,格式
From: https://www.cnblogs.com/FKdelphi/p/17280411.html

相关文章

  • sublime编辑器中ANSI编码的汉字出现乱码
    问题:使用sublime打开一个ANSI编码的文件,出现乱码。解决方法:安装ConvertToUTF8插件打开sublime,按键Ctrl+Shift+p ,会出现如下图所示 然后,你输入installpackage点击InstallPackage,然后,你再输入ConvertToUTF8点击回车.这时,你可以在sublime的左下角看见提示,这说明正在安装C......
  • Jupyter notebook中markdown书写格式
    Jupyternotebook中markdown书写格式前言:markdown是一种简洁明了的书写格式,适用于计算机专业编写博客等,包括加粗、图片、标题等级、代码等。markdown可用于多个平台,只要平台支持该形式即可使用,例如Jupyternotebook、博客园等都可以使用markdown格式书写。本篇主要提供一些m......
  • IntelliJ IDEA技巧 格式化代码、有时候代码太乱,手动调整代码代码多的时候太浪费时间了
    系列文章目录文章目录系列文章目录第一步第二步开始使用第一步更改Java等常用代码的展示效果1、打开IDEA左上角File—>Settings。2、选择Editor—>CodeStyle—>Java(可根据实际需要更改语言)。第二步开始使用前面的工作做完之后,这里的格式化代码的快捷键才会出来试试看......
  • 通过Sysmon+Nxlogs收集Windows Server 2012服务器日志-并以Syslog形式发送Json格式数
    0x01环境介绍WindowsServer2012已经安装部署好了域控,目的除了收集Windows服务器本身的日志外还收集域控环境下的各种日志。0x02Nxlog配置和使用使用社区版本即可,下载地址:https://nxlog.co/downloads/nxlog-ce#nxlog-community-edition使用的版本是当前最新版本安装过程就省略,......
  • PHPExcel读取和设置日期格式
    1.读取excle中的日期$val=$PHPExcel_sheet->getCellByColumnAndRow(ord('I')-65,3)->getValue();echodate("Y-m-d",PHPExcel_Shared_Date::ExcelToPHP($val));die;  2.设置导出excle表格中日期格式$resultPHPExcel->getActiveSheet()->setCellValu......
  • jackson时间格式解决方案
    jackson时间格式解决方案你遇到下面这个异常吗??com.fasterxml.jackson.databind.exc.InvalidFormatException:Cannotdeserializevalueoftype`java.util.Date`fromString"2021-01-2322:02:17":notavalidrepresentation(error:FailedtoparseDatevalue'2021......
  • 格式
         ......
  • 微信小程序使用 wxs 对模板数据格式化展示
    在小程序页面展示时,对时间、金额进行格式化处理。但是每次在js文件中处理,并setData感觉无比麻烦。是否可以直接在wxml模板文件中进行处理。正好发现了微信小程序wxs,完全满足需求。微信小程序wxs使用场景WXS(WeiXinScript)是微信创造的一套脚本语言,虽然看起来很JS异常......
  • NSDateFormatter设定日期格式
    部分日期格式的总结:NSDateFormatter*dateFormatter=[[[NSDateFormatteralloc]init]autorelease];[dateFormattersetAMSymbol:@"AM"];[dateFormattersetPMSymbol:@"PM"];[dateFormattersetDateFormat:@"dd/MM/yyyyhh:mmaaa"];NSDate*date=[......
  • CAD格式的数据如何导入和卫星图叠加
    在城市规划、道路管线、林业、农业、地质和环境监测等各行各业的国民经济建设中,一般都会需要将CAD与卫星影像无偏移叠加配准。因为影像地图具有影像内容、线划要素、数学......