Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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.

---

← →
Sergey13 ©   (2006-03-27 15:09) [9]

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

---

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

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

---

← →
balepa ©   (2006-03-27 15:10) [11]

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.014 c