频道分类

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

作者:admin 来源: 日期:2020/5/9 18:04:00 人气: 标签:

 
 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 判断字符串是否包含汉字下一篇:没有资料