delphi 判断字符串是否包含汉字

本文整理自网络，侵删。

 procedure TForm1.Button1Click(Sender: TObject);var  str : string;  pStr : PWideChar;  isHZ : Boolean;  i , s, m : Integer;  byteArr : TBytes;begin  str := Trim('23432432223432423');  pStr := PWideChar( str );  byteArr := WideBytesOf(str);
   while pStr^ <> #0 do    begin        //  汉字      case pStr^ of        ｃｈａｒ($4E00) .. ｃｈａｒ($9FA5) :        begin           isHZ := True;           Break;        end ;        // 全角中文符号        ｃｈａｒ($FF00) .. ｃｈａｒ($FFEF) :        begin           isHZ := True;           Break;        end ;        // 半角中文符号        ｃｈａｒ($3000) .. ｃｈａｒ($303F) :        begin           isHZ := True;           Break;        end ;        else        //  EditChar.Text :=       EditChar.Text + pStr^;      end;
      Inc( pStr );    end;    //    if isHZ then      Vcl.Dialogs.MessageDlg('包含汉字',mtInformation,[mbOK],0)    else      Vcl.Dialogs.MessageDlg('没有包含汉字！',mtInformation,[mbOK],0);
end; 

相关阅读 >>

Delphi xe5记录android应用程序（日志输出）

Delphi 跳出for循环

Delphi gridpanel percent百分比设置

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

Delphi fmx用timage显示不同格式的图片

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi memo 内容每n行分批处理

Delphi 打开android应用信息

Delphi 获取网卡mac为软件注册机器码

Delphi简单读取网上的文本文件

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