Delphi判斷字符串中是否包含漢字，並返回漢字位置

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;