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中case语法的使用方法

Delphi 类型映射及类型转换

Delphi 如何知道鼠标点击的statusbar的位置

Delphi获取进程快照(snapshot)

Delphi 获取文件所在路径

Delphi禁用,启用网卡

Delphi 数值小数点后不保留0

Delphi ticon保存ico文件时失真的解决办法

Delphi getexplorerpid获取系统explorer.exe进程id

Delphi一个简单的多线程例子

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

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