delphi 倒计时程序 怎样做！

来源：百度知道 编辑：UC知道 时间：2024/09/25 06:29:34
比如到2009年 倒计时 精确到秒

我刚开始学DELPHI 很多地方都搞不懂

谁能给个详细步骤啊

补充楼上 还要var iAllSeconds:integer;

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Edit1: TEdit;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
iAllSeconds:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
dtTemp,time:TDateTime;
begin
time:=2009-1-1;
dtTemp:=time-now;
iAllSeconds:=Round(dtTemp*24*60*60);
Edit1.Text:=IntToStr(iAllSeconds);
inc(iAllSeconds,-1);
end;

end.