原来的代码无法限制只输入一个小数点
begin
case Key of
'0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键,#13回车键
//可输入0-9,退格,回车,点以及负号
else
begin
MessageBox(0, '请输入数值!', '输入错误', MB_OK+MB_ICONERROR);
Key := #0;
end;
end;
end;
限制只输入一个小数点:
在keypress事件加入如下代码即可 if not (key in ['0'..'9','.',#8]) then
pos('.',edit1.text)得到的是 . 第一次在edit.text中出现的 |