狐狸爪子图片:delphi如何判断输入的是否为中文

来源:百度文库 编辑:高校问答 时间:2024/07/05 15:00:50
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