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中调用http xml

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

Delphi idhttp访问路由里的web

Delphi xe7 新的并行库 system.threading

Delphi 获取文件名不带扩展名

Delphi xe 遍历指定数据库，清空各表记录

Delphi 仿dbnavigator方式

Delphi中关于字符串的操作

Delphi access数据库 主键

Delphi 如何解析网址？

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

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