无限挑战7月25:delphi如何判断输入的是否为中文

来源:百度文库 编辑:高考问答 时间:2024/05/09 19:53:43
delphi如何判断输入的是否为中文
用户在Edit控件中输入一段文字,点击确定,判断输入的文字是否都是汉字,请给个例子。

function IsIncludeChinese(string s): boolean;
begin
for i = 1 to length(s) do
begin
if (s[i]>128) then
begin
result := true;
break;
end
end
result := false;
end