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

解决方案 »

  1.   

    整数类型的全局变量delphi自动初始化为0,指针类型的则自动置为nil
      

  2.   


          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;
          …
      

  3.   

    其实你也可以在formcreate中初始化变量为你想设置的数值。