在delphi中，怎样判断edit控件中填入的是不是数字？怎样给edit控件加长度限制？

Question

判断是否之数字需要程序判断
如果使用TEdit，长度也需要程序中判断，如果使用TMaskEdit，其属性MaxLength可以指定长度

Answer 1

判断是否之数字需要程序判断
如果使用TEdit，长度也需要程序中判断，如果使用TMaskEdit，其属性MaxLength可以指定长度

Answer 2

在OnKeyPress事件中
判断Text的长度
判断Key是不是数字
作相应处理

Answer 3

在OnKeyPress事件中
判断Text的长度
判断Key是不是数字
作相应处理

Answer 4

如果用dbedit控件，又怎么来判断啊？它又没有text属性。

Answer 5

http://www.csdn.net/expert/search.asp在哪里搜索～～你会发现好东东～～

Answer 6

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Length(Edit1.Text)>10)or(not (key in ['0'..'9'])) then
    Key:=#0;
end;

Answer 7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  AStr:String;
begin
  AStr := Edit1.Text;
  case key of
    '0'..'9':Key:=Key;             //只能输入数字
    '.':                           //输入小数时判断小数点
        if pos('.',AStr)<>0 then
          Key:=#0
        else
          Key:=Key;
  else
    Key:=#0;
  end;
end;

Answer 8

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Length(Edit1.Text)>10)or(not (key in ['0'..'9','.'])) then
    Key:=#0;
end;小数也是数字啊

Answer 9

第二个问题：在EDIT的状态栏中有一个MAXLENGH属性，0表示不限制长度，其他数字表示限制的长度。

Answer 10

长度限制直接设置Edit1.MaxLength属性就可以了～～

Answer 11

:saimaya()　
我要是输入'3.6.7.8.9'呢?
还得改吧，余下的工作交给提问者吧;OK?

Answer 12

代码已经有人写了。
不过，要注意DEL，BACKSPACE，TAB键不要屏蔽。