[函数] Unicode 检查字符串是否含中文字
2016-03-02 17:11
323 查看
// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer; UCS4Str: UCS4String; begin Result := False; UCS4Str := UnicodeStringToUCS4String(Str); for i:=Low(UCS4Str) to High(UCS4Str) do if ((UCS4Str[i] >= $3400) and (UCS4Str[i] <= $4DB5)) or // CJK Unified Ideographs Extension A 3.0 ((UCS4Str[i] >= $4E00) and (UCS4Str[i] <= $9FA5)) or // CJK Unified Ideographs 1.1 ((UCS4Str[i] >= $9FA6) and (UCS4Str[i] <= $9FBB)) or // CJK Unified Ideographs 4.1 ((UCS4Str[i] >= $F900) and (UCS4Str[i] <= $FA2D)) or // CJK Compatibility Ideographs 1.1 ((UCS4Str[i] >= $FA30) and (UCS4Str[i] <= $FA6A)) or // CJK Compatibility Ideographs 3.2 ((UCS4Str[i] >= $FA70) and (UCS4Str[i] <= $FAD9)) or // CJK Compatibility Ideographs 4.1 ((UCS4Str[i] >= $20000) and (UCS4Str[i] <= $2A6D6)) or // CJK Unified Ideographs Extension B 3.1 ((UCS4Str[i] >= $2F800) and (UCS4Str[i] <= $2FA1D)) then // CJK Compatibility Supplement Exit(True); end;
相关文章推荐
- plsql自治事务在异常中的使用
- 性能测试培训:tomcat性能调优方法
- 创建docker私有仓库
- (Educational Codeforces Round 9)Thief in a Shop(dp)
- IOS设置完定位后回到APP中后要自动做某些操作的方法,使用通知
- 性能测试(四):性能测试如何写报告
- Qt与MSVC中文乱码问题的解决方案
- ASP.NET MVC ActionResult的其它返回值
- 《Linux内核分析》第二周 操作系统是如何工作的?
- 206. Reverse Linked List
- 144. Binary Tree Preorder Traversal
- 性能测试培训:性能瓶颈分析思路
- 老李分享:loadrunner 的86401错误
- 单链表排序
- nginx下配置多站点
- 之前写的几个demo,一起看看吧。
- 堆是什么 http://www.cnblogs.com/vamei/archive/2013/03/20/2966612.html
- 性能测试(三):性能测试怎么调优
- Qt5.0+msvc2010:解決中文乱码的问题
- Java中SimpleDateFormat类parse解析yyyy-MM-dd与yyyy-M-d是否可以混用