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组建,然后利用了一些语句就实现了这个功能.