本文整理自网络,侵删。
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 mysql里Delphi事件类型转unix时间戳
Delphi ansiendstext 用法之一(路径结尾自动加\)
Delphi winapi: getforegroundwindow - 获取前台窗口的句柄
Delphi for xx in xx do 语法的使用示例
Delphi webbrowser控件实现对ie浏览器的各种控制
更多相关阅读请进入《Delphi》频道 >>