本文整理自网络,侵删。
//┏━━━━━━━━━━━━━━┓
//┃代码着色:CodeColor v1.0 ┃
//┃来自:悄然无声的 Blog ┃
//┗━━━━━━━━━━━━━━┛
//判断字符是否是汉字
function IsMBCSChar(const ch: Char): Boolean;
begin
Result := (ByteType(ch, 1) <> mbSingleByte);
end;
相关阅读 >>
Delphi使用tclientdataset�r不携带midas.dll的方法
Delphi winsocks检测某个tcp端口师傅正在被使用
Delphi createmutex建立互斥对象,并且给互斥对象起一个唯一的名字
更多相关阅读请进入《Delphi》频道 >>