Question

delphi 倒计时程序 怎样做！

Answer 1

用时钟啊，定义一个全局变量，然后再时钟里面将变量递减。
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Id:integer=10;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Id > 0 then
begin
Id := Id -1;
Label1.Caption := IntToStr(Id);
end
else
begin
Timer1.Enabled := False;
end;
end;

end.

Answer 2

使用Timer控件，声明一个全局的整形变量，在事件中调用（每分钟调用一次就是触发时间设置成1000ms），递减就可以了

Answer 3

nteger;