Как засечь время?

← →
Troan_81 (2006-03-27 14:45) [0]

Добрый день, мастера! Скажите пожалуйста, как засечь время и чтобы через минуту например показать сообщение, что время вышло?
По нажатию на кнопарь пишу:

Label1.caption:=TimeToStr(now);
А в таймере:
if label1.caption>label2.caption then showmessage("Time!");
Чето не получается :(
Подскажите пожалуйста!

← →
Eraser © (2006-03-27 14:46) [1]

> Troan_81 (27.03.06 14:45)

TTimer + F1

← →
Troan_81 (2006-03-27 14:48) [2]

Я про справку знаю. Справки нету.
Мне непонять, как можно засечь время?

← →
Anatoly Podgoretsky © (2006-03-27 14:54) [3]

Troan_81 (27.03.06 14:48) [2]
T := Now;

← →
Troan_81 (2006-03-27 14:58) [4]

Предпрожим, время засек. Мне нужно, чтобы через минуту появилось сообщение, т.е. в один label я засекаю время, во втором label2 у меня таймер работает. т.е. должна отсчет в обратном порядке. даже незнаю, как правильно сформулировать вопрос. Нужно чтобы через минуту появилось сообющение :(

← →
balepa © (2006-03-27 14:58) [5]

Timer1.Interval:= 1000
Timer1.Enabled:= True

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, unit2, ComCtrls, ActnList,FileCtrl, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Button4: TButton; ActionList1: TActionList; Action1: TAction; TreeView1: TTreeView; OpenDialog1: TOpenDialog; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; T: Integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin T:= 0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if T<60 then T:= T+1 else begin T:= 0; ShowMessage("dsfsdfsdf"); end; end; end.

← →
Anatoly Podgoretsky © (2006-03-27 15:06) [6]

Troan_81 (27.03.06 14:58) [4]
Timer.Interval := 60000;

← →
balepa © (2006-03-27 15:07) [7]

> Anatoly Podgoretsky © (27.03.06 15:06) [6]

И правда, зато у меня коду больше :)

← →
Troan_81 (2006-03-27 15:08) [8]

Простите, что-то не понятно:(
Задам вопрос по другому:
1. Программа запустилась - засекли время (label1.Caption:=TimeToStr(now);)
2. Начали "действие 1" - заработал таймер (счтает 1 минуту).
3. Если таймер закончил отсчет (1 минуту) - показать сообщение.
т.е. должна быть разница между двумя label.

2 [8] Troan_81 (27.03.06 15:08)
Если таймер (на минуту) сработал - зачем что-то еще сравнивать?

Обработчик события OnTimer

Troan_81 (27.03.06 15:08) [8]
Ну, и че непонятно?

← →
Troan_81 (2006-03-27 15:13) [12]

Всё! Мозги заработали :)
Ребята, БОЛЬШОЕ спасибо! :)

Как засечь время? Найти похожие ветки