菜鸟继续提问：

Question

在EDIT中如何设置数据输入格式？比如只能输入"0000.00"格式的数据

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','.',#8]) then
  begin
    beep;
    key:=chr(0);
  end;
end;

Answer 2

用format可以,自己看一下帮助吧

Answer 3

To:北极熊您这样只能限制EDIT框输入数字和小数点，但无法限制其输入格式，假如输入了“1200..00”，保存的时候就会出错。

Answer 4

运行已通过
在Edit的OnKeyPress中
procedure.........
begin
  if not (Key In['0'..'9','.',#8,#13]) then
     begin
       key:=#0;
       showmessage('请输入数字!');
     end
  else if key='.' then          
     Edit1.Maxlength:=Length(Edit1.Text)+3;
  else if key=#8 then
         if Pos('.',Edit1.text)=Length(Edit1.text) then
            Edit1.MaxLength:=0;
end;

Answer 5

用MASTEDT控件如何设置呢？

Answer 6

MaskEdit 的EditMask属性设置为
0000.00;1;_