急！如果我要限制在一个edit1里面只能输入10位数字，怎么处理？

Question

如果我要限制在一个edit1里面只能输入10位数字，怎么处理？
谢谢！
1.只能是数字，2.只有10位
帮我写一下代码谢谢！

Answer 1

如果你一定要使用 TEdit,则在事件 OnKewPree 里写代码Begin
  IF Pos(Key, '0123456789')=0 Then Key:= #0;
End;前提是TEdit 的MaxLength要设置为10.

Answer 2

哦，Maple119(枫叶) 这一招真厉害！我指的是IF Pos(Key, '0123456789')=0 then ...这种判断！

Answer 3

设置maxlength:=10;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
  begin
    key:=#0;
    messagebeep(1);
  end;
end;

Answer 4

在onkeypress事件中加入下面代码:
 
  if not(key in [0..9])or(length(trim(edit1.text)>10)) then key:=#0;

Answer 5

问一下下：
    messagebeep(1);是什么意思的？