當然，妳也可以在打字的時候進行判斷，如果輸入不在定義的範圍內，就清除；
妳要實現的是後者，我寫的代碼如下:
程序TForm1。Edit1KeyPress(發送者:TObjectvar鍵:Char)；
開始
如果不是(鍵入['0 '...' 9','.'，# 8])，那麽//# 8退格鍵不允許輸入數字和退格鍵。
開始
key:= # 0；
結束
其他
如果length(edit 1 . text)= 0則//第壹位只能是0或1。
開始
如果不是(鍵入['0 '，' 1 '，#8])，則
開始
key:= # 0；
結束
結束
其他
如果length(edit 1 . text)= 1那麽//第二位只能是小數點。
開始
如果沒有(鍵入[' . '，#8])
開始
key:= # 0；
結束
結束
其他
如果長度(Edit1。text)>；3那麽//不能輸入超過3位數的長度，比如0.123。
開始
如果不是(鍵入[#8])，則
key:= # 0；
結束
其他
如果長度(Edit1。正文)& lt=3那麽//位1後面只能跟0。
開始
如果復制(Edit1。Text，1，1)='1 '然後
如果不是(鍵入['0 '，#8])，則
key:= # 0；
結束；
結束；