| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6055 人关注过本帖
标题:判断两个文本框是否为空,否将Edit1,edit2值相加在edit3中显示
取消只看楼主 加入收藏
超超小火星
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2008-10-31
结帖率:100%
收藏
 问题点数:0 回复次数:1 
判断两个文本框是否为空,否将Edit1,edit2值相加在edit3中显示
我在网上下了个DELPHI经典教程,就是传播最广的那个第一章是Delphi快速入门 第二章是Delphi面向对象编程方法。。。的那个 但是看到第二章2.1.8时出现问题了,书上说是用 NoValue函数检查编辑框是否为空,不为空则取值做运算,为空提示用户。
代码如下:
function NoValue(AnEditBox:TEdit):Boolean;

begin

if AnEditBox.Text='' then

begin

AnEditBox.Color := clRed;

AnEditBox.Text := '请输入整数值';

Result := True;

end

else

begin

AnEditBox.Color := clWindow;

Result := False;

end;

end; 
对于以上代码我想知道 这段代码应该放到程序的那个位置,才能执行?我想不该是implementation,interface和TForm1.Button1Click里吧。

下面是运算代码;
procedure TForm1.AddClick(Sender: TObject);  //(add是按钮)

var

FirstNumber,SecondNumber : Integer;

begin

if NoValue(Edit1)or NoValue(Edit2) then

exit;

Count := Count + 1;

Counter.Text := IntToStr(Count);

FirstNumber := StrToInt(Edit1.Text);

SecondNumber := StrToInt(Edit2.Text);

Edit3.Text := IntToStr(FirstNumber+SecondNumber);
end; 

因为上面那段代码我不知道应该放哪,所以对于这段它提示NoValue有问题(好像是找不到);还有就是count没有定义也没有赋值啊(这个Delphi中要是只定义没赋值对这个Count := Count + 1;是默认取0吗?) 书上在程序结尾做了个初始化处理
initialization

Count := 0; 
我看的云山雾罩地,俺是菜小鸟,提的问题比较杂,也可能没有提到点上,请高手能不厌其烦给予详细解答,谢谢!!  另外俺希望版主能对我提的问题分析出俺到底那嘠哒水平不行,俺好突击突击。。。万分感激,辛苦了 (*^__^*) 嘻嘻……
搜索更多相关主题的帖子: 文本 相加 判断 
2008-11-04 11:38
超超小火星
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2008-10-31
收藏
得分:0 
这个东西很简单 不用那个NoValue函数的话 我会作。  但是那个NoValue函数 是怎么用地 是真没看明白
2008-11-06 16:06
快速回复:判断两个文本框是否为空,否将Edit1,edit2值相加在edit3中显示
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015196 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved