类型:转载 责任编辑:asp.net 日期:2007/05/23
热门软件下载:
下面的例程实现将两个编辑框中的整数相加,显示在第三个编辑框中。用到了一个整形的全局变量Count:
…
implememntation
var
Count : Integer;
procedure TForm1.AddClick(Sender:TObject);
var
FirstNumber,SecondNumber:Integer;
begin
Count := Count + 1;
Counter.Text := IntToStr(Count);
FirstNumber := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Edit3.Text := IntToStr(FirstNumber+SecondNumber);
end;
…
为了实现每按动一次按钮Count增加一次,必须对全程变量Count进行初始化处理。在程序库单元的结尾处,最后一个end.保留字之前,加入保留字initialization和初始化Count的代码:
…
initialization
Count := 0;
这样当事件处理过程AddClick被触发时,Count就会被增加一次,以表征计算次数。
我的问题是,initialization Count := 0;语句应该放在什么地方,不用它可以不可以?我试着不用这条语句,执行时凑count值也是从1开始累加,如果不用初始化那么系统默认其值为零吗?
网友回答:
整数类型的全局变量delphi自动初始化为0,指针类型的则自动置为nil