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
        Char($4E00) .. Char($9FA5) :
        begin
           isHZ := True;
           Break;
        end ;
        // 全角中文符号
        Char($FF00) .. Char($FFEF) :
        begin
           isHZ := True;
           Break;
        end ;
        // 半角中文符号
        Char($3000) .. Char($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 将整数转换为罗马数字

Delphi 修改盘符名称

Delphi scrollbox1滚动框鼠标滚轮

Delphi获取pid的父进程文件名

在Delphi 7中使用加密的sqlite

Delphi中判断某个文件是否已经打开

Delphi 提升进程权限到sedebugprivilege

Delphi用ado操作数据库完整示例

Delphi xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi 判断当前网络连接方式

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

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