ByteType字符串中判断是否英文

Posted on 2013-10-21 13:33 大悟还俗_2 阅读(431) 评论(0) 收藏举报

ByteType('123你好吗',1)=mbSingleByte//单字节
ByteType('123你好吗',4)=mbLeadByte//双字节字符的第一个字符
ByteType('123你好吗',5)=mbTrailByte//双字节字符的第二个字符

function IsMBCSChar(const ch: Char): Boolean;
begin
Result := (ByteType(ch, 1) <> mbSingleByte);
end;