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 获取邮箱中的用户名

Delphi drawing text 绘制文本

Delphi idhttp数据自动编码

Delphi中控制与捕捉输入法的实现单元

Delphi中setlength使用

Delphi中提取网址链接分路径

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi allocmem

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

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