请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1365|回复: 0

[函数] Unicode 检查字符串是否含中文字

[复制链接]

69

主题

96

帖子

834

积分

管理员

哈哈哈哈

Rank: 9Rank: 9Rank: 9

积分
834
发表于 2016-8-27 10:44:03 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE10 
资源分类: 系统 
发布平台: Windows Android IOS 
转载地址: http://www.cnblogs.com/onechen/p/5235696.html

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. // 字串含中文 by Aone
  2. function IsIncludeChinese(Str: String): Boolean;
  3. var i: Integer;
  4.     UCS4Str: UCS4String;
  5. begin
  6.      Result := False;
  7.      UCS4Str := UnicodeStringToUCS4String(Str);

  8.      for i:=Low(UCS4Str) to High(UCS4Str) do
  9.          if ((UCS4Str[i] >=  $3400) and (UCS4Str[i] <=  $4DB5)) or   // CJK Unified Ideographs Extension A 3.0
  10.             ((UCS4Str[i] >=  $4E00) and (UCS4Str[i] <=  $9FA5)) or   // CJK Unified Ideographs 1.1
  11.             ((UCS4Str[i] >=  $9FA6) and (UCS4Str[i] <=  $9FBB)) or   // CJK Unified Ideographs 4.1
  12.             ((UCS4Str[i] >=  $F900) and (UCS4Str[i] <=  $FA2D)) or   // CJK Compatibility Ideographs 1.1
  13.             ((UCS4Str[i] >=  $FA30) and (UCS4Str[i] <=  $FA6A)) or   // CJK Compatibility Ideographs 3.2
  14.             ((UCS4Str[i] >=  $FA70) and (UCS4Str[i] <=  $FAD9)) or   // CJK Compatibility Ideographs 4.1
  15.             ((UCS4Str[i] >= $20000) and (UCS4Str[i] <= $2A6D6)) or   // CJK Unified Ideographs Extension B 3.1
  16.             ((UCS4Str[i] >= $2F800) and (UCS4Str[i] <= $2FA1D)) then // CJK Compatibility Supplement
  17.             Exit(True);
  18. end;
复制代码


转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2260 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2019-10-18 03:30 , Processed in 0.112577 second(s), 36 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表