如何检测edit里输入的不是数字或者英文字母就提示错误信息

Question

rt

Answer 1

在EDIT的ONKEYPRESS中去判断
if not ((key in [0..9] )or (key in [a..z])) then Showmessage('error');
代码不规范的，大概就是表达这个意思,楼主可以自己改

Answer 2

你可以这样作，如果不是数字或者是字母，输入框就不输入字符：if not ( (Key in ['0'..'9']) or (Key in ['a'..'Z']) ) then
  Key:=Chr(0);

Answer 3

对了，忘记告诉你在编辑框的ONKEYPRESS事件中写上面的代码

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in['a'..'z','A'..'Z','0'..'9']) then
    begin
        key:=#0;
        ShowMessage('Error input!');
    end;
end;