delphi 限制文本框中只接受数字


本文整理自网络,侵删。

 

在窗体上,放一个TEXTBOX 和BUTTON,当在TEXTBOX中输入非数字时,如果点击BUTTON,则进行人机对话框作出提示:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 1 to length(edit1.text) do
if not(edit1.text[i] in ['0'..'9']) then
begin
showmessage('只能输入数字!!!delphitop.com ') ;
exit;
end;
end;

相关阅读 >>

Delphi listview排序

Delphi的tstreamreader逐行读取文本文件

Delphi 线程同步(线程安全)

Delphi 用hook实现dll注入详解

Delphi 2009 查看所有 unicode 字符

Delphi的initialization和finalization

Delphi 获取所有磁盘盘符列表

Delphi renamefile 文件改名

Delphi 系统服务和普通forms程序共存一体的实现

Delphi memo1 字符串快速查找定位

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...