delphi实现数字的倒计时

今天学习delphi的时候,看到有一个题是写一个数字的倒计时程序,于是就动手试了下,完成了数字倒计时的功能,具体的代码如下:

 

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls; 

type 
        TForm1 = class(TForm) 
        tmr1: TTimer; 
        lbl1: TLabel; 
        Button1: TButton; 
        procedure tmr1Timer(Sender: TObject); 
        procedure Button1Click(Sender: TObject); 
    private 
        { Private declarations } 
    public 
        { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 
var 
    i:Integer; 


{$R *.dfm} 

procedure TForm1.tmr1Timer(Sender: TObject); 

begin 
             Lbl1.Caption:=IntToStr(i); 
             Dec(i); 
             if i < 0 then tmr1.Enabled:=False; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
            i:=10000; 
            tmr1.Enabled:=True; 
end; 

end. 

 

一个很简单的程序而已,添加了一个timer组建,然后利用了一些语句就实现了这个功能.

本文转自wiliiwin 51CTO博客，原文链接:http://blog.51cto.com/wiliiwin/206492