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 tstopwatch 计时

adoquery 实现获取数据库所有表名

Delphi 调用cmd获取java 版本号

Delphi 农历源码

Delphi 获取局域网所有ip

Delphi 遍历控件

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 拼接文件路径

Delphi 读取软件卸载信息和桌面图标列表

Delphi中sendmessage给一个edit控件发送wm_settext消息

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

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