在edit1内只能输入数字或字母,应怎么做

Question

在edit1的keypress事件里
if not (Key in ['0'..'9','a'..'z','A'..'Z',#8]) then
   Key:=#0

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((length(Edit1.Text)<8) or (ord(Key)=8)) and ((ord(Key)>=48) and (ord(Key)<=57) or (ord(Key)=8) or (ord(Key)=36) or (ord(Key)=35) or (ord(Key)=38) or (ord(Key)=40) or (ord(Key)=37) or (ord(Key)=39)) then
exit
else Key:=chr(0);
end;以上是从我的程序中拷贝的一段代码，这段代码使Edit1只能输入数字且限制字符串长度为8。