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中根据程序名称判断是否多开

Delphi实现音频传输

Delphi根据不同分隔符获取字符串内容

Delphi 判断当前网络连接方式

Delphi 编译发布安卓的app名字问题

Delphi 之前解析串口数据

Delphi 系统服务运行桌面用户指定程序

Delphi 判断 中文字符

Delphi操作unicode字符

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

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