if (not (key in ['0'..'9'])) or (length(edit1.text)>2) then key:=#0;
if (not (key in ['0'..'9'])) or (length(edit1.text)>2) then key:=#0;这样做有点不好 1. 不可以用" Back Space "键了 2. 输入了两个就什么也改不了了
上面的 (length(edit1.text)>2)都有问题,可以输入三个数的 改为: if not (key in ['0'..'9',#8]) then key:=#0 else if (Length(Edit1.Text)>1) then if Not (Key in [#8,#46,#47,#39]) then Key:=#0;
key:=#0;
key:=#0;这样做有点不好
1. 不可以用" Back Space "键了
2. 输入了两个就什么也改不了了
改为:
if not (key in ['0'..'9',#8]) then
key:=#0
else
if (Length(Edit1.Text)>1) then
if Not (Key in [#8,#46,#47,#39]) then
Key:=#0;
对了,是用MaskEdit,不是Edit。
谢谢。