Delphi判断字符串中是否包含汉字,并返回汉字位置

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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

以上是关于Delphi判断字符串中是否包含汉字,并返回汉字位置的主要内容,如果未能解决你的问题,请参考以下文章

delphi 判断字符串有中文

Delphi 判断是不是汉字

C#-判断字符中是否含有汉字的两种方法,并提取汉字

C++里怎样判断字符串中含有汉字

Excel-判断一个文本字符串中是否包含数字! 判断一个文本字符串是否是纯汉字!

js判断是不是包含汉字和字母