频道分类

delphi判断字符串是否是汉字

作者:admin 来源:未知 日期:2010/2/1 13:43:13 人气: 标签:

 

//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;