作业帮delphi怎么控制edit中只能输入数字?vari:integer;procedure TForm1.Edit1Change(Sender:TObject);beginif edit1.text'' thentryi:=strtoint(edit1.Text)exceptbeginedit1.Clear;showmessage('输入错误');endend;end;我是这样写的代码.但在调
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 08:32:04
delphi怎么控制edit中只能输入数字?vari:integer;procedure TForm1.Edit1Change(Sender:TObject);beginif edit1.text'' thentryi:=strtoint(edit1.Text)exceptbeginedit1.Clear;showmessage('输入错误');endend;end;我是这样写的代码.但在调
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怎么控制edit中只能输入数字?vari:integer;procedure TForm1.Edit1Change(Sender:TObject);beginif edit1.text'' thentryi:=strtoint(edit1.Text)exceptbeginedit1.Clear;showmessage('输入错误');endend;end;我是这样写的代码.但在调
在调试运行的时候是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;