花落谁家，你作主！	盛大widget设计大赛英雄榜

请教，怎样判定输入的字符串中有汉字？？？急！！！在线等！！

楼主fengguo1009（feng）2003-09-04 14:42:35 在 Delphi / 数据库相关提问

如题
在EDIT1中输入一串字符，怎么样判定其中是否含有汉字？？
望大侠们指点！！问题点数：10、回复次数：9Top

1 楼treestar001（小鸟）回复于 2003-09-04 14:56:11 得分 0

做循环，用ASC码来判断！Top

2 楼fengguo1009（feng）回复于 2003-09-04 16:07:25 得分 0

我刚入门
可以具体点吗？？最好是代码
谢谢先！Top

3 楼delphi_xizhousheng（西周生）回复于 2003-09-04 17:28:44 得分 0

用ASC码是不准确的，
搜一下以前的帖子有很规范的做法我不太记得了Top

4 楼newsofter（横空出世小霸王）回复于 2003-09-04 18:03:52 得分 0

if ord(key)>=$A1 then
showmessage('不能输入汉字');Top

5 楼XXSingle（心无了然）回复于 2003-09-04 18:10:32 得分 0

找找吧，我以前有的Top

6 楼g58521547（我是菜鸟）回复于 2003-09-04 18:43:37 得分 0

判断输入的字符的ascii码有没有超过127，超过就是汉字Top

7 楼limd（好久没来了）回复于 2003-09-04 19:07:08 得分 0

以前在DOS下编程就是用的判断ASCII码有没有超过127来判断的Top

8 楼xjlqlqlq（小虫）回复于 2003-09-04 19:28:00 得分 0

汉字是双字节的,且每个字节的第一位(既符号位)为1.
根据这你应该知道如何判断了...Top

9 楼fengguo1009（feng）回复于 2003-09-05 09:35:46 得分 0

大侠们，小弟是新手，可不可以具体一点，最好是代码
不胜感激！Top

10 楼klfbaby（）回复于 2003-09-05 09:48:01 得分 10

procedure TForm1.Button1Click(Sender: TObject);
var
Str1:String;
i:integer;
begin
Str1 := Edit1.Text;
for i:=1 to length(Str1) do
begin
if ord(Str1[i])>128 then
begin
ShowMessage('有汉字');
Exit;
end;
end;
end;
Top