edit 控件的简单问题

Question

如下问题:
1.控件中只能输入数字;
2.长度只能5位;
3.当输入为非数字时,自动将其删除,保留原来已经输入的合法输入;

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9']) and (key <> '.') and (key <> chr(8)) then
    key := #0;
    if Length(edit1.Text)>=5 then
    Key := #0;
end;

Answer 2

1:procedure TFrmDetail.Edit1eyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9',#8]) then key:=#0;
end;
2:Edit1.maxlength:=5;
3:同1