delphi判断字符串是否是汉字

本文整理自网络，侵删。

 
//delphi判断字符串是否是汉字

function IsHz(Source: string): Bool; 
begin 
result := ((Word(Source[1]) shl 8 + Word(Source[2])) >= $B0A1) and ((Word(Source[1]) shl 8 + Word(Source[2])) <= $D7F9) 
end;
 

相关阅读 >>

Delphi 网页数据抓取

Delphi循环移位操作

Delphi inc () 计数用法

Delphi xe7组件tetheringmanager1发送消息

Delphi 获得memo、richedit的光标位置

Delphi检测当前鼠标点击处是否在指定控件内部

Delphi10.3模拟读取百度网页，并读取相关头部信息

Delphi 调用api.ocr.space的ocr接口

Delphi 字符串加密与解密函数

Delphi runtime error 216 程序退出后弹出错误

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

转载请注明出处：木庄网络博客 » delphi判断字符串是否是汉字