下面的例程实现将两个编辑框中的整数相加,显示在第三个编辑框中。用到了一个整形的全局变量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开始累加,如果不用初始化那么系统默认其值为零吗?
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开始累加,如果不用初始化那么系统默认其值为零吗?
implememntation var
Count : Integer=0; 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;
…