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 获取memo文本光标的位置

Delphi split 方法使用

Delphi判断系统是否64位

Delphi 获取时间日期

Delphi 如何在richedit控件里加入链接

Delphi 复制文件到全盘

Delphi 窗体只显示控件

Delphi-改进获取文件md5 hash方法

Delphi 实现代码重启android app

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

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