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 xe7开发的直接以管理员模式启动cmd命令行界面

Delphi 标头控件（theadercontrol）中的显示复选框

Delphi中建议使用的语句

Delphi 提取标签之间的字符串（重复标签）

Delphi twebbrowser出现 method pastehtml not supported by automation object 解决方法

Delphi 给字加边的又一个算法

Delphi中的record怎么动态分配内存？

Delphi 调用浏览文件夹 selectdirectory

Delphi 从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）

Delphi通过spcomm com口发短信包括pud编码解码

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