procedure Tfrm_zdrw.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (((key>='0') and (key<='9')) or (key='.') or (key=#8)) then
begin
key:=#0;
end
else
if (pos('.', edit1.text)<>0) then
if key='.' then
begin
key:=#0;
end;
end;
delphi 使edit只能输入带小数点的数值或整数
最新推荐文章于 2025-04-06 16:22:23 发布
本文介绍了一个简单的程序过程，用于确保用户只能在输入框中输入数字和小数点，有效防止了非法字符的输入，同时保持了用户体验。
扫一扫
915
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
