zoukankan      html  css  js  c++  java
  • Delphi判断字符串中是否包含汉字,并返回汉字位置

    1,函数代码

    {
    
      判断字符串是否包含汉字
      // judgeStr:要判断的字符串
      //posInt:第一个汉字位置
    }
    function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean;
    var
      p: PWideChar; // 要判断的字符
      count: integer; // 包含汉字位置
      isHave: boolean; // 是否包含汉字返回值
    begin
    
      isHave := false; // 是否包含汉字返回值默认为false
      count := 1; // 包含汉字位置默认为1
    
      p := PWideChar(judgeStr); // 把要判断字符串转换
    
      // 循环判断每个字符
      while p^ <> #0 do
      begin
        case p^ of
          #$4E00 .. #$9FA5:
            begin
              isHave := true; // 设置是否包含汉字返回值为true
              posInt := count; // 设置包含汉字位置
              break; // 退出循环
            end;
    
        end;
    
        Inc(p);
        Inc(count); // 包含汉字位置递增
      end;
    
      result := isHave;
    
    end;

    2,例子:

    procedure TForm2.Button3Click(Sender: TObject);
    var
      testStr1, testStr2: string;
      posInt: integer;
    begin
      testStr1 := '12345';
      testStr2 := '123汉字45';
    
      if self.IsHaveChinese(testStr1, posInt) = true then
      begin
        ShowMessage(testStr1 + ' 包含汉字 :' + inttostr(posInt));
      end
      else
      begin
        ShowMessage(testStr1 + ' 不包含汉字');
      end;
    
      if self.IsHaveChinese(testStr2, posInt) = true then
      begin
        ShowMessage(testStr2 + ' 包含汉字 :' + inttostr(posInt));
      end
      else
      begin
        ShowMessage(testStr2 + ' 不包含汉字');
      end;
    end;


    参考:http://www.cnblogs.com/del/archive/2009/04/14/1435722.html


  • 相关阅读:
    C#:字符串(转载9)
    C# 数组(转载8)
    C#:可空类型(转载7)
    XD 05
    eclipse 快捷键 干货
    XD 04
    XD 03
    model, mapper, xml
    02 MyBatis & Druid
    注解 用到
  • 原文地址:https://www.cnblogs.com/sunylat/p/6119102.html
Copyright © 2011-2022 走看看