请教一个非常古老的问题，如何判断EDIT中的字符是汉字（英文）还是数字,这不简单的？

Question

若是汉字怎么判断呢？它的ASCI是多少呢？

Answer 1

所有的汉字（这里指GB码）两个字节最高位都是1，也就是说汉字的编码两个字节都大于0x7F。

Answer 2

如果只是判断是不是数字，那好办，
try
  StrToInt(Edit1.Text);
except
  ShowMessage('error');

Answer 3

try
 strtofloat(edit1.text);
except 
on econverterror do
  begin
   application.messagebox('','',mb_iconinformation+mb_ok);  
  end;

Answer 4

将Edit里的text赋予string的变量，然后用
for i:=1 to length(string) do
if string[i] 的 ord>255 那就是汉字

Answer 5

楼上那位，好象ord大于128才是汉字吧。

Answer 6

for i:=0 to length(edit1.text) then
begin
  if edit1.text[i]>128 then
       showmessage('是汉字');
end;

Answer 7

zhangzgweida(雏鹰),cds27(冰封):
   多谢各位的帮助，上两位兄台的方法已经通过，谢谢！
  现给两位加分.