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

标签：io   os   ar   for   on   cti   as   res   har   

{

判断字符串是否包含汉字
// judgeStr：要判断的字符串
//posInt：第一个汉字位置
}

function TForm1.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;

---恢复内容结束---

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

标签：io   os   ar   for   on   cti   as   res   har   

原文地址：http://www.cnblogs.com/delxe/p/4058558.html