edit中只能输入数字并且只能输入一个小数点

在edit的keypress事件加入如下代码即可
if not (key in ['0'..'9','.',#13,#8]) then //只能输入数字及小数点，还想控制只让输入什么，自己在[]中自己填加
key:=#0;
if (key='.') and (Pos('.',Edit1.Text)>0) then //如果输入的是小数点，并且前面已有小数点就不让输入了
key:=#0;

 

 

#0表示的是一个空字符。
key:=#0;     使当前输入的是空。
key为——
#13   :   回车
#10:   换行
#8:     退格
#9:     TAB