请问dbedit怎样实现 XXXXX.X 的控制用户的输入格式

[rrhrrhf]

小数一定要有一位
左边数字部份可以输任意个数字

比如 30.1 32440.1 99999.1 都要允许的，左边最长不超过5个数字

怎样可以限制？

[rrhrrhf]

错了，是dbediteh控件

[YLCN2010]

既然是dbedit,可以控制相应的dataset中的字段格式,每一个字段都有editformat属性的
假設與DBEdit綁定的字段名為﹕field1.
table.fieldbyname( 'field1 ').DisplayFormat:=00000.0
不建议设置EditFormat
{table.fieldbyname( 'field1 ').EditFormat:=0.0}

[YLCN2010]

另外还可以设置DBEdit的KeyPress事件，仅供参考。

procedure   TForm1.DBEdit1KeyPress(Sender:   TObject;   var   Key:   Char); 
var 
  po:integer; 
begin 
  po:=Pos( '. ',DBEdit1.Text); 
  if   ((po> 0)   and(po+1=length(Edit1.text))and   (key <> #8))or((po> 0)and   (key= '. '))   then 
      key:=#0; 
end;