判断两个文本框是否为空,否将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;
我看的云山雾罩地,俺是菜小鸟,提的问题比较杂,也可能没有提到点上,请高手能不厌其烦给予详细解答,谢谢!! 另外俺希望版主能对我提的问题分析出俺到底那嘠哒水平不行,俺好突击突击。。。万分感激,辛苦了 (*^__^*) 嘻嘻……