请问如何限制一个输入数字的长度？

Question

可以试一下maskedit控件。很方便的。
祝：身体健康！！

Answer 1

说的不清楚，你是要限制什么的输入长度，
比如：Edit，那只要设Maxlength就可以了
或者你问的是别的什么东西，说清楚点好不好

Answer 2

同意楼上所说，用maskedit控件

Answer 3

if not (key in ['0'..'9',#8,#46]) then
        key:=#0
    else if length(edit1.Text)>=7 then
        key:=#0

Answer 4

以上程序写在edit1的keypress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9',#8,#46]) then
        key:=#0
    else if length(edit1.Text)>=7 then
        key:=#0
end;

Answer 5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  I: Integer;
begin
   if ( key in ['0'..'9','.',#13,#8,#46]) then
   begin
     if (Key = #8) and (Key = '.' ) then
     J := J - 1;
     if Key = '.' then
     begin
     for I := 0 to Length(Edit1.Text ) - 1 do
     begin
       if Copy(Edit1.Text ,I , 1) ='.' then
         J := J +1 ;
       if J >= 2 then
       Key := #0;
     end;
       if (Length(Edit1.Text) = 0) or (Length(Edit1.Text) = 6) then
         Key := #0;
     end else
        Exit;
   end else
   Key := #0;
end;var
  Form1: TForm1;
  J : Integer;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.MaxLength :=7;
  J :=0;
end;

Answer 6

use tmaskedit, DIY也可以，上面的方法已经可以了