• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi中unicode转汉字函数

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

近期用到这个函数,无奈没有找到 delphi 自带的,网上找了下 有类似的,没有现成的,我需要的是 支持 “\u4f00 ” 这种格式的,即前面带标准的 “\u”  于是改造了一下。

下面是 解码 函数:

方便有需要的人吧,我自己也需要^_^

 /// <summary>
    /// // Unicode转汉字 ,支持自动过滤非 unicode编码,即非 unicode编码不转换
    ///  只支持 标准的 类型 \u4e00  这种格式的 转换, 以\u 开头的
    ///  code by 猿哥哥 2015-2-11
    /// </summary>
 function TMyEncode.UnicodeToChinese(inputstr:string):string;
var
i:Integer;
index:Integer;
temp,top,last:string;
begin
   index:=1;
   while index>=0 do
   begin
   index:= inputstr.IndexOf('\u');
 if index<0 then
begin
last:= inputstr;
   Result:= Result+ last;
   Exit;
end;
   top:= Copy(inputstr,1,index); //取出 编码字符前的 非 unic 编码的字符,如数字
   temp:= Copy(inputstr,index+1,6);//取出编码,包括 \u    ,如\u4e3f
   Delete(temp,1,2);
   Delete(inputstr,1,index+6);
  result:= Result+ top+ WideChar( StrToInt('$'+ temp)) ;
   end;
end;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi基本语句发布时间:2022-07-18
下一篇:
delphi下实现ribbon界面的方法(一)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap