edit编辑框 判断输入的字符是汉字还是英文

在KeyPress事件里处理。   

  procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
          if   Key<#127   then  
                  Key:=#0;  

  ////////////限制Edit1只能输入汉字  
  end;  
   
  procedure   TForm1.Edit2KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
          if   Key>=#127   then  
                  Key:=#0;  
  ////////////限制Edit1只能输入英文  
  end;