delphi TMS WEB CORE 判断是否包含汉字

本文整理自网络，侵删。

 
 function IsChineseString(s: String): Boolean;
 var
 jg:integer;
 begin
 Result :=false;
 asm
   var aa= s;
   var reg = new RegExp("[\\u4E00-\\u9FFF]+","g");
   if(reg.test(aa) ){
   //  alert("含有汉字");
     jg=1;
   }

 end;

 if jg=1 then
 begin
 Result :=true;
 end;

 end;
 

相关阅读 >>

Delphi 控制滚动条

Delphi 根据盘符弹出u盘

Delphi 10.3.1 android沉浸式透明状态栏

Delphi 如何获取桌面图标方法

Delphi 回车符 换行符

Delphi vcl 的 tpagecontrol 控件，实现对页签的拖动

Delphi检查字符串是否为纯数字

Delphi 注册表启动项管理代码

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

Delphi 直接调用记事本（notepad）打开文本文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TMS WEB CORE 判断是否包含汉字