放开那三国2 神兵冢:delphi如何判断输入的是否为中文

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 21:23:26
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