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 format格式化函数

Delphi tdownloadurl下载网络文件

Delphi实现身份证号码15到18位升位算法

Delphi winapi: getactivewindow - 获取当前活动窗口的句柄

Delphi 按钮躲避鼠标点击

Delphi xe5 android 解决ide真机调试不起问题

Delphi android.os获取sn号

Delphi原生方法取得文件的md5

Delphi treeview中显示mainmenu菜单

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

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

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