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

本文整理自网络，侵删。

 
// 字串含中文 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;
 

相关阅读 >>

Delphi 中使长循环有响应

Delphi 不用控件用函数实现发email

Delphi dbgrid去除滚动条

Delphi 实现拦截api的钩子(hook)

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi - 利用dll编程控制摄像头实现拍照、录制视频

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi twebbrowser 设置焦点

在 Delphi 中调用 javascript

Delphi 调用浏览文件夹 selectdirectory

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi [函数] Unicode 检查字符串是否含中文字