DELPHI数字相加问题．
利用edit1,edit2,edit3,button实现加法运算．例如:edit1=5,edit2=3,利用button控件怎么样实现在edit3中显示８啊...
利用edit1,edit2,edit3,button实现加法运算．
例如:
edit1=5,edit2=3,利用button控件怎么样实现在edit3中显示８啊 展开
例如:
edit1=5,edit2=3,利用button控件怎么样实现在edit3中显示８啊 展开
2个回答
展开全部
呵呵，楼主你把楼上的代码写入button得onclick事件就可以，但还有个小问题，在edit控件中如果输入的不是数字，就会出错，那时因为无法转换得原因，我补充下代码
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8, #13, #27, '.' : ;
else
begin
MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION);
Key := #0;
end;
end;
end;
这个就是控制他只能输入数字了
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9', #8, #13, #27, '.' : ;
else
begin
MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION);
Key := #0;
end;
end;
end;
这个就是控制他只能输入数字了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
大部分系统错误，是因为某些DLL文件丢失造成的，比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的电脑一般都...
点击进入详情页
本回答由金山毒霸提供
展开全部
Edit3.text := IntToStr(StrToInt(Edit1.text)+StrToInt(Edit2.text))
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
