如何判断TEdit中输入的内容是大写和小写的混合？

Question

１．如何判断TEdit中输入的内容是大写和小写的混合２．如何判断TEdit中输入的内容是数字和字符的混合

Answer 1

1
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if  not (key   in ['a'..'z','A'..'Z'] )THEN
      KEY:=#0;
end;

Answer 2

2:终于可以打开网业了,,,晕,,CSDN,不知道搞什么鬼,,,
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);  
begin
  if  not (key   in ['a'..'z','A'..'Z','1'..'9'] )THEN
      KEY:=#0;
end;