delphi怎么控制edit中只能输入数字?
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/01 08:25:09
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程序有可以使用,也能达到要求,是什么回事?
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;
这样写最简单:
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中 输入一些数字 怎么画条形图