delphi怎么控制edit中只能输入数字?

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/08/07 11:01:48

delphi怎么控制edit中只能输入数字?
var
i:integer;
procedure TForm1.Edit1Change(Sender:TObject);
begin
if edit1.text'' then
try
i:=strtoint(edit1.Text)
except
begin
edit1.Clear;
showmessage('输入错误');
end
end;
end;
我是这样写的代码.但在调试的时候一输入字母他就会出现一窗口说什么错误,但保存后执行他生成的EXE程序有可以使用,也能达到要求,是什么回事?

在调试运行的时候是delphi捕获的异常,会有提示框,执行exe文件的时候就不关delphi的事了,所以就没有提示框了.
这样写最简单：
procedure TForm1.Edit1KeyPress(Sender:TObject; var Key:Char);
begin
if not (Key in ['0'..'9',#8,#13]) then
begin
Key := #0;
ShowMessage('只能输入数字');
end;
end;

在Word中十以上带括号的字母数字怎么输入呀,我只能输入到⑩ JS 正则表达式：如如上是控制输入框只能是数字.我想要控制输入框只能是6位数字? delphi中dimens[1]. 请问在excel输入数字中怎么输入英文单引号 WPS表格中,想输入一个圆圈,里面带个数字的符号,怎么打出来.数字是21到38,我只能打出20以下的! 为什么excel表格中输入的数字不受控制?数字会变化为什么密码只能输入英文或数字? 正则表达式只能输入字母数字汉字用户名只能包括中文字、英文字母、数字和下划线禁止输入空格 delphi group project 怎么用? delphi在执行adoquery.post时提示dataset not in edit or insert mode错在excel中输入一些数字怎么画条形图