本文整理自网络，侵删。
delphi 判断 中文字符
sql正则表达：
select * from gamelog.game2_0log_100_20121012 where not objectname regexp "[\x4e00-\x9fff]"
缺点： 只能查询到完全中文（字符中不包括任何非中文）
mysql:
SELECT * FROM gamelog.game2_0log_100_20121012 where char_length(objectname)!=length(objectname)
缺点：只对 字符中 包括 中文 和外文的有用 （双字节判断）
delphi:
function TForm2.IsCN(sText: string): Boolean;
var
I: Integer;
begin
Result := False;
if sText = '' then Exit;
for I := 0 to Length(sText) do
begin
if (Ord(sText[I]) >= $4E00{19968}) and (Ord(sText[I]) <= $9FA5{40869}) then
begin
Result := True;
break;
end;
end;
end; 相关阅读 >>
Delphi 过滤网页代码 <script></script>
更多相关阅读请进入《Delphi》频道 >>
