有什么办法可以控制EDIT中只能输入英文和数字，不能输入中文

[gxchen]

凭本事罗分

[林石公]

key in['0'..'9','a'..'z','A'..'Z',#8]
比较笨的方法，好在代码简单明了

[王集鹄]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', 'a'..'z', 'A'..'Z': ;
else Key := #;
end;
end;

[u2m]

在Edit的KeyPress事件中判断用户输入，
if not(char是数字or英文字母) then
key=#0

[jyqkr]

if not key in([0..9],[a..z],[A..Z],#8) then
showmessage('你输入了非法字符');