如何判断TEdit中输入的内容是大写和小写的混合?
1.如何判断TEdit中输入的内容是大写和小写的混合
2.如何判断TEdit中输入的内容是数字和字符的混合
[解决办法]
1
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['a'..'z','A'..'Z'] )THEN
KEY:=#0;
end;
发布时间: 2012-03-03 15:33:02 作者: rapoo
如何判断TEdit中输入的内容是大写和小写的混合?
1.如何判断TEdit中输入的内容是大写和小写的混合
2.如何判断TEdit中输入的内容是数字和字符的混合
[解决办法]
1
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['a'..'z','A'..'Z'] )THEN
KEY:=#0;
end;