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 setprivilege 提权代码

Delphi xe7 新的并行库 system.threading

Delphi 控制台关闭指定窗口

Delphi2010 编译变量$region用法

Delphi 使用泛型的 tarray 从动态数组中查找指定元素

Delphi操作excel说明

Delphi 解析 png 图片的十六进制字符流

Delphi apihook

Delphi mscomm1自动获取串口

Delphi制作移动文字、图片

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

转载请注明出处：木庄网络博客 » delphi 限制文本框中只接受数字