delphi判断字符是否是汉字

//┏━━━━━━━━━━━━━━┓
//┃代码着色：CodeColor v1.0 ┃
//┃来自：悄然无声的 Blog ┃ 
//┗━━━━━━━━━━━━━━┛

//判断字符是否是汉字
function IsMBCSChar(const ch: Char): Boolean; 
begin 
Result := (ByteType(ch, 1) <> mbSingleByte); 
end;