["Hatchet" Harry]

Есть объект TTimer (таймер), соответственно время на таймере начинает капать с того момента, как

Код:

1	Timer.Enabled := True //Запуск таймера

Возможно ли это время загнать в какой-нить Label.Caption (ну т.е. чтобы оно динамически отображалось на форме)?

[Electronic_Arts]

label1.caption:= timetostr(now);

["Hatchet" Harry]

Виноват, не пояснил: у меня таймер (Timer1) с интервалом 20 минут работает, поэтому ему на событие OnTime нельзя назначить, чтобы он собственное время работы в TimerLabel.Caption присваивал!
Сам только что допёр до такого способа: добавил на форму еще 1 таймер который уже работывает с интервалом в 1 секунду и, соответственно, на событие OnTimer я ему назначаю присвоение TimerLabel.Caption времени работы первого таймера. . Вот так мы и получаем динамичную обнову лейбла т.к. интервал у нас - 1 секунда на этом таймере)

Код:

1 2 3 4

procedure TForm.Timer2Timer(Sender: TObject); begin  TimerLabel.Caption := TimeToStr(Time); end;

Только вот теперь в чем проблема:
TimeToStr(Time) - этим мы выводим системное время, а мне нужно как-то время работы таймера1 с начала его запуска вывести.

[lmikle]

Сделай отсечку времени в момент начала работы таймера 1 и потом выводи разницу между запомненым и текущим временами.

Типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   TimeBegin : TDateTime;   procedure TForm1.Timer1Timer(Sender : TObject); begin   TimeBegin := Now;   ... end;   procedure TForm1.Timer2Timer(Sender : TObject); begin   Label1.Caption := TimeToStr(Now - TimeBegin); end;

[Karsh]

TimeBegin := Now лучше задавать вместе с Timer1.Enble:= true
А для второго таймера - как lmikle сказал

["Hatchet" Harry]

И опять же только что сам пришел к тому что надо вначале проги описать глобальную переменную StartTime типа TDateTime; присвоить ей системное время в момент включения первого таймера; В событии OnTimer второго таймера описать 2 переменные EndTime и ResultTime обе типа TDateTime; присвоить EndTime системное время на момент срабатывания второго таймера (т.е. каждую секунду); присвоить переменной ResultTime разницу: EndTime - StartTime, ну и естественно вывести всё это дело на нужный лейбл:

Код:

1	TimerLabel.Caption := TimeToStr(ResultTime);

Был очень рад когда всё норм скомпилилось и корректно срабатывало! Зашел в топик, а тут уже этот способ вы предлагаете))).
И тем не менее: Electronic_Arts,lmikle,Karsh спасибо!
PS: Ночью мозг как-то тормозит (сначала спрашиваю а потом уже приходит в голову норм мысль и начинаю делать сам).

["Hatchet" Harry]

Подскажите, а каким способом можно получить текущее системное время, переведённое в 24-часовой формат(подозреваю, что как-то с помощью функции FormatDateTime, но что-то не могу сообразить, как именно). И как сделать чтобы время работы таймера на капче лейбла выводилось выше 24-часов (не обнуляясь, в момент перехода с 24 на 0 часов).

[Страдалецъ]

Сообщение от "Hatchet" Harry

Подскажите, а каким способом можно получить текущее системное время, переведённое в 24-часовой формат(подозреваю, что как-то с помощью функции FormatDateTime, но что-то не могу сообразить, как именно). И как сделать чтобы время работы таймера на капче лейбла выводилось выше 24-часов (не обнуляясь, в момент перехода с 24 на 0 часов).

Это как? 24:00:01,24:00:02 и далее что-ли?

["Hatchet" Harry]

Сообщение от Страдалецъ

Это как? 24:00:01,24:00:02 и далее что-ли?

да, чтоб 24, 30, 48 и т.д. часов можно было словить
Знаю такой способ пока: проверять, если EndTime - StartTime = '00:00:00' то прибавлять к этому делу +24:00:00, но, думаю как-то это совсем "по-левому".

[Nyctos Kasignete]

Сообщение от "Hatchet" Harry

каким способом можно получить текущее системное время, переведённое в 24-часовой формат

Есть функция DateTimeToSystemTime. Можно так:

Код:

1 2 3 4 5 6 7 8

var   dt: TSystemTime; begin   DateTimeToSystemTime(Now, dt);   Label1.Caption := 'Hour: ' + IntToStr(dt.wHour);   Label2.Caption := 'Minute: ' + IntToStr(dt.wMinute);   Label3.Caption := 'Second: ' + IntToStr(dt.wSecond); end;

Сообщение от "Hatchet" Harry

как сделать чтобы время работы таймера на капче лейбла выводилось выше 24-часов

Для этого можно использовать функцию HoursBetween из модуля DateUtils, передавая ей в качестве параметров дату и время старта таймера и результат функции Now.

Код:

1	Label1.Caption := IntToStr(HoursBetween(StartDateTime, Now));

_____________

P.S. Кстати, если посмотреть исходный код функции Now, то можно увидеть, что под Windows вызывается API-шная функция GetLocalTime, заполняющая структуру SYSTEMTIME с полями wHour, wMinute, wSecond и т.д. Так что если программа для Windows, то можно использовать прямо эту функцию, не пользуясь функцией Now:

Код:

1 2 3 4 5 6 7 8

var   sysTime: _SYSTEMTIME; begin   GetLocalTime(sysTime);   Label2.Caption := 'Hour: ' + IntToStr(sysTime.wHour);   Label3.Caption := 'Minute: ' + IntToStr(sysTime.wMinute);   Label4.Caption := 'Second: ' + IntToStr(sysTime.wSecond); end;

[Страдалецъ]

Я такое делал, только у меня в обратную сторону к 00:00:00 считало, для вас адаптировал:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

unit Unit10;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm10 = class(TForm)     Timer1: TTimer;     Label1: TLabel;     procedure Timer1Timer(Sender: TObject);     procedure FormCreate(Sender: TObject);   private    LeftSeconds: Integer;   public     { Public declarations }   end;   var   Form10: TForm10;   implementation   {$R *.dfm}   procedure TForm10.FormCreate(Sender: TObject); begin  LeftSeconds := 3600*24-5; end;   procedure TForm10.Timer1Timer(Sender: TObject); Var H, M, S: String;     T: Integer; begin  T := LeftSeconds;  H := IntToStr(T div 3600);  Dec(T, T div 3600 * 3600);  M := IntToStr(T div 60);  Dec(T, T div 60 * 60);  S := IntToStr(T mod 60);    if Length(H) = 1 then H := '0'+ H;  if Length(M) = 1 then M := '0'+ M;  if Length(S) = 1 then S := '0'+ S;  Label1.Caption := H + ':' + M + ':' + S;  Inc(LeftSeconds); end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

object Form10: TForm10   Left = 0   Top = 0   Caption = 'Form10'   ClientHeight = 137   ClientWidth = 406   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'Tahoma'   Font.Style = []   OldCreateOrder = False   OnCreate = FormCreate   PixelsPerInch = 96   TextHeight = 13   object Label1: TLabel     Left = 128     Top = 40     Width = 146     Height = 45     Caption = '00:00:00'     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -37     Font.Name = 'Tahoma'     Font.Style = []     ParentFont = False   end   object Timer1: TTimer     Interval = 5     OnTimer = Timer1Timer     Left = 80     Top = 8   end end

["Hatchet" Harry]

Если кому интересно, привожу свой окончательный вариант
(Напомню, задача была поставлена следующая: отобразить время с момента включения таймера1 и динамически выводить его на лейбл1.
Было реализованно следующим образом: добавляем таймер2 с interval = 1000 (1 сек), включаем этот таймер вместе с таймером1 и пишем ему в событие OnTimer:

Код:

1 2 3 4 5 6 7

procedure TMainForm.Timer2Timer(Sender: TObject); var  ResultTime: TDateTime; begin  ResultTime := Now - StartTime;  TimerLabel.Caption := IntToStr(HoursBetween(StartTime, Now)) + ':' + FormatDateTime('nn:ss', ResultTime); end;

где StartTime - переменная типа TDateTime, которую мы определяем при включении таймера1, как StartTime := Now;


PS: В очередной раз, низкий поклон помогавшим!