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

最新推荐文章于 2024-05-27 10:46:11 发布

转载最新推荐文章于 2024-05-27 10:46:11 发布 · 310 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/p/9029950.html

本文介绍了一个使用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.delphitop.com/html/zifuchuan/2877.html

转载于:https://www.cnblogs.com/railgunman/p/9029950.html