如何限定edit1.text只能输入数字及小数点呢？(40分)

pckite2 · 2002-08-12

如何限定edit1.text只能输入数字及小数点呢？

hzwhzw · 2002-08-12

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

hzwhzw · 2002-08-12

不好意思，忘了小数点,为#46加入上面代码就好了

天与地 · 2002-08-12

同上。

pckite2 · 2002-08-12

谢谢！~马上给你分。

pxx · 2002-08-16

此方法不是很好，因为小数点可重复输入，如何限制小数点个数很不好做，所以我找了个控件。