[vah-smile]

Допустим имеем следующий код в TForm1.FormCreate

Код:

Timer1.Interval := 5000

Вопрос: Как можно получить отсчет времени в Label1?

[lmikle]

Отсчет чего? Какого времени?
Указанным кодом ты просто задаешь, что таймер будет срабатывать каждые 5 секунд.

[angvelem]

Тогда уж ставь 500 или меньше, а не 5000. Затем переводишь текущее время в String и присваиваешь Label-у. Не забываем делать ему Update.

[vah-smile]

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

Отсчет чего? Какого времени?
Указанным кодом ты просто задаешь, что таймер будет срабатывать каждые 5 секунд.

Нужно сделать отсчет времени в Label1 на выполнение програмы. По истечении заданого времени - открывается результат набраных балов (тест). Сделал "дедовским" способом (без использования Timer1.Interval), прописав огромный кусок кода для выше поставленного задания, но интересует, может есть простейший способ реализации задания? Ведь при использовании Timer1.Interval ведется отсчет времени. Может можно его достать через функцию в 1-2 строчки?

Код:

// m - минуты
// s - секунды
// tmp_time - переменная String, для формирования строки-времени и вывода ее в Label1

procedure TForm1.Timer1Timer(Sender: TObject);
var tmp_time: String;
begin
// Делаем красивый вывод остатка времени на экран в формате 00:00
  if (m<10) Then tmp_time := '0'+IntToStr(m) Else tmp_time := IntToStr(m);
  if (s<10) Then Label1.Caption := tmp_time + ':0'+IntToStr(s) Else Label1.Caption:=tmp_time+':'+IntToStr(s);

  if ((m>0) or (s>=0)) Then
    begin
      if s>=0 Then dec (s);
      if ((s<0) and (m>0)) Then begin dec (m); s:=59; end;
    end
  Else If ((m<=0) and (s<=0)) Then
    begin
      Timer1.Enabled := False;
      Panel1.Visible:=True;
    end;

end;

[Outlaw]

Как пример, отчет одной минуты.
прописываешь в процедуре таймера:
n:=n+1;
Label1.caption:=inttostr(60-n)+' секунд!';
P.S. Естественно интервал ставишь секундный

[vah-smile]

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

Как пример, отчет одной минуты.
прописываешь в процедуре таймера:
n:=n+1;
Label1.caption:=inttostr(60-n)+' секунд!';
P.S. Естественно интервал ставишь секундный

Да. Но здесь мы всеравно считаем секунды и минуты вручную. А хотелось бы получить остаток времени непосредственно с Timer1.Interval

[angvelem]

При запуске получаешь текущее время:

Код:

var
  Time : TDateTime;
begin
   Time := Now;

по завершению:

Код:

  Now - Time;

[vah-smile]

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

При запуске получаешь текущее время:

Немного не то, так как нам нужно выводить посекундно остаток времени. Наверное, для реализации первоначального задания всетаки прийдется написать кусок программы, для подсчета минут и секунд:

Код:

if ((m>0) or (s>=0)) Then
    begin
      if s>=0 Then dec (s);
      if ((s<0) and (m>0)) Then begin dec (m); s:=59; end;
    end
  Else If ((m<=0) and (s<=0)) Then
    begin
      Timer1.Enabled := False;
      Panel1.Visible:=True;
    end;

Всем спасибо за полемику!