delphi edit中只能输入数字并且只能输入一个小数点-木庄网络博客

本文整理自网络，侵删。

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

Delphi 关于rs485总线通信协议开发注意事项

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

Delphi 四舍五入含小数点函数

Delphi 获取文件大小方法

Delphi 10.3 断点全部失效

Delphi listview高速添加数据

Delphi 让程序自己更新本程序

Delphi wininet带进度下载http文件

Delphi 与 xml 示例（直接利用ixmldocument）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi edit中只能输入数字并且只能输入一个小数点