delphi 使edit只能输入带小数点的数值或整数

procedure Tfrm_zdrw.Edit1KeyPress(Sender: TObject; var Key: Char); begin   if not   (((key>='0')   and   (key<='9'))   or   (key='.') or (key=#8))   then   begin     key:=#0;   end   else     if (pos('.', edit1.text)<>0) then      if  key='.'   then      begin       key:=#0;      end; end;