有关计时器的用法(送分哈)

                            
小弟刚学delphi不久,问个很笨的问题,计时器的用法。   
  我想做的是点击一个按钮就开始计时。再点另一个按钮,就停止计时。  
  另外再问一个问题,怎样统计memo中的字符个数?  
      public  
          {   Public   declarations   }  
      totaltime   :   Integer;  
      end;  
   
  var  
      mainForm:   TmainForm;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TmainForm.FormCreate(Sender:   TObject);  
  begin  
        Label1.Caption   :=InttoStr(totaltime);  
  end;  
   
  procedure   TmainForm.Timer1Timer(Sender:   TObject);  
  begin  
          mainForm.totaltime   :=mainForm.totaltime   +1;  
  end;  
   
  procedure   TmainForm.BitBtn_playClick(Sender:   TObject);  
  begin  
   
        mainForm.totaltime   :=0;  
        Timer1.Enabled   :=true;  
   
  end;  
  procedure   TmainForm.BitBtn_stopClick(Sender:   TObject);  
  begin  
         
        Timer1.Enabled   :=false;  
   
  end;  
  end.

查看回复