坤山艮向能出什么人才:delphi如何判断输入的是否为中文

来源:百度文库 编辑:神马品牌网 时间:2024/05/14 12:20:02
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