注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

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

2014-09-23 18:49:11|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

//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;
  评论这张
 
阅读(284)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017