delphi 怎么判断中文还是英文

delphi 如何判断中文还是英文
delphi 如何判断中文还是英文

[解决办法]
//要判断是否中文得有个中文字库进行比较才行的
//以下是判断字符是单字节还是双字节
ByteType('123你好吗',1) = mbSingleByte //单字节
ByteType('123你好吗',4) = mbLeadByte //双字节字符的第一个字符
ByteType('123你好吗',5) = mbTrailByte //双字节字符的第二个字符

[解决办法]
gb2312编码两个连在一起的都大于160的ascii码就是中文。
[解决办法]
给一个比较笨的办法
function test(str:string):boolean;//返回为True则字符串中有中文
var
enStr:string;
cnStr:widestring;
begin
enStr := str;
cnStr := wideString(str);
result := length(enStr)<> length(cnStr);
end;
[解决办法]

Delphi(Pascal) code

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