Как сделать отсчет времени?

[Aboltus]

Кто знает пожалуйста напишите как сделать отсчет времени в обратном порядке. Я хочу в своей программе на кнопке сделать отсчет времени чтобы после окончания там допустим минуты совершалось действие. Но я уже придумал что там название кнопки будет прописываться вместе со временем(цифрмаи из поля ввода). Теперь не могу сделать так чтобы в поле ввода Edit шел отсчет времени ну то есть менялись цифры 60,59,58,57 ... .Помогите плиззз!(Таймерами пользоваться могу)

[AlDelta]

Так если -

(Таймерами пользоваться могу)

В чем проблема? Отнимай в таймере от переменной-счетчика(изначально к примеру счетчик=60) единицу каждую секунду. И в том же таймере присваивай эдиту 'текст'+переменная-счетчик (сначала переведи число в строку - IntToStr). Как только переменная-счетчик стала равной нулю, останавливай счетчик и включай сирену.

[Aboltus]

Плиззз напишите это в коде

[Alter]

Вот навоял:

unit Tims;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
   Sek :Integer;
   MaxSek :Integer;
   Timer :TTimer;
   Procedure TimerOn(Sender :TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.TimerOn(Sender :TObject);
Var T :Integer;
begin
 T := MaxSek-Sek;
 Button1.Caption := Format('Осталось - %d:%d', [T div 60, T mod 60]);
  Inc(Sek);
 If T<=0 then
 begin
 Button1.Caption := 'Выполнено';
 (Sender as TTimer).Enabled := False;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Sek := 0; //счётчик
 MaxSek := 12; //Время отсчёта в Секундах 120Сек=2Мин
 Timer :=TTimer.Create(Self);
 Timer.Interval:=1000;
 Timer.Enabled := False;
 Timer.OnTimer := TimerOn;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Timer.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer.Enabled := True;
end;

end.

[Aboltus]

че то Borland Development Studio не принимает Procedure TForm1.TimerOn(Sender :TObject);

[Aboltus]

в чем прикол?

[Манжосов Денис :)]

в разделе Type пишешь

procedure TimerOn(Sender:TObject);

[Aboltus]

Спасибо Дениска!!!

[Alter]

Сообщение от Aboltus

че то Borland Development Studio не принимает Procedure TForm1.TimerOn(Sender :TObject);

Если процедуры, функции, перемееные и прочее прописывается в:

type  
  TXxxx = class(TForm)   
    {здесь}
  private  
    {здесь}  
    { Private declarations }  
  public  
    {здесь}
    { Public declarations }  
  end;

то процедуры и функции и т.п. записывают так(приписывая класс в котором оно описанны):

function  TXxxx.XXX(A :Tx):Tx;
procedure TXxxx.XXXXX(A :Tx);

Я понятно объяснил?

[Hassan]

вот предлагаю вам вот :

 var Form1: TForm1;
  Seconds,Minutes,Hours:Integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Seconds:=Seconds-1;
if(seconds<0) Then
Begin
Minutes:=Minutes-1;
Seconds:=59;
end ;
if (minutes<0) Then
Begin
Hours:=Hours-1;
Minutes:=59;
end ;
If
((hours=0) And
(minutes = 0) And (seconds = 0))
Then Timer1.Enabled:=False;
Label1.Caption:=IntToStr(Seconds);
Label2.Caption:=IntToStr(Minutes);
Label3.Caption:=IntToStr(Hours);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Seconds:=5;   Minutes:=2; Hours:=1;
end;

если не понятно дайте знать.


________
А я предлагаю Вам код оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

И в будущем не забывайте об этом!

Модератор.