计数器的问题！重谢

本人菜鸟一只，望各位高手，前辈写一个关于计数器的代码！  
  比如，我点击button开始计时，当再次点击button时停止计时，并且将此期间的所用时间返回到edit1里 问题点数：50、回复次数：1Top

1 楼dulei115（前途无亮）回复于 2003-09-02 09:24:54 得分 50

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   ExtCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          Timer1:   TTimer;  
          Edit1:   TEdit;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   Timer1Timer(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
      i:integer;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
   
  begin  
      if   not   timer1.Enabled   then  
      begin  
          i   :=   0;  
          timer1.Enabled   :=   true;  
      end  
      else  
      begin  
          edit1.Text   :=   inttostr(i);  
          timer1.Enabled   :=false;  
      end;  
  end;  
   
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  begin  
      i   :=   i+1;  
  end;  
   
  end.  
  Top

相关问题

• timer
• tform
• tobject
• sender
• procedure
• edit
• button
• enabled
• begin

• 帖主：silenceboy
• dulei115

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载