还是那个限制输入数字的问题!

                            
怎么限制在文本框中只输入数字?   
  不要只告诉我这样:  
  procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
      if   not   (key   in   ['0'..'9','-',#8,#13])   then     key:=#0;  
  end;  
   
  要求:不可以输入这样的字符串:     333.333.333.333.  
                                                              -5555.33-54.454  
   
 

查看回复