问一下很菜的问题啊,我想让edit不能输入空格与大小写字母,怎样做简单啊!

Question

问一下很菜的问题啊,我想让edit不能输入空格与大小写字母,要怎么做啊,
有较简捷的方法吗/
有好方法与贴代码段的必给分

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin if (ord(key) in [65..90]) or      //大写字母
    (ord(key) in [97..122]) or     //小写字母
    (ord(key) = 32)  then          //空格
    key:=#0;end;

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [Ord('A')..Ord('Z'), Ord('a')..Ord('z'), Ord('0')..Ord('9'), 32] then
  begin
    Key := 0;
  end;end;

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if  Chr(Key) in ['A'..'Z', 'a'..'z', '0'..'9', #32] then
  begin
    Key := 0;
  end;
end;

Answer 4

掩码框最不方便了, 你在MaskEdit1中任何东西都不填写
  ShowMessage(IntToStr(Length(MaskEdit1.Text)));
能提示为0吗? 它的长度已经被固定了