[bmed]

Господа программисты, помогите, плиз!
Ситуация такая: пишу программу для спортивных соревнований, соответственно, есть табло, на котором идет обратный отсчет времени (начальное значение таймера задается пользователем - 05:00, 04:00, 03:00, 02:00). Для таймера написала процедуру:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var H, M, S: Integer;
begin
   if i>0 then i:=i-1;
   H := I div 360; // часы
   M := (I - H) div 60; // минуты
   S := (I - H*360 - M*60); // секунды
   if s<10 then Label1.Caption:=IntToStr(M)+' : 0'+IntToStr(S)
   else Label1.Caption:=IntToStr(M)+' : '+IntToStr(S);
    if i=0 then
    begin
      Timer1.Enabled:=false;
      sndPlaySound('timer.wav', SND_ASYNC);
    end;
end;

таймер запускается-останавливается щелчком по Label1:

Код:

procedure TForm1.Label1Click(Sender: TObject);
begin
     if timer1.Enabled=false then
      begin
       timer1.Enabled:=true;
       Label1.Font.Color:=clGreen;
      end
       else
      begin
       timer1.Enabled:=false;
       Label1.Font.Color:=clRed;
      end;
end;

Админ: Пользуемся тегами для оформления кода!

после того, как таймер остановился, передаем его значение в программу.

И вот проблема в следующем:
если таймер остановлен, например, на значении 04:36, то программа работает корректно. При значении от 03:50 до 03:59 программа вылетает по ошибке. от 03:49 и меньше - опять все хорошо. Есть еще несколько интервалов, на которых выдается системная ошибка. При других значениях таймера при прочих равных условиях (тестирую на одних и тех же данных) программа работает корректно.

Может быть, кто-нибудь с подобным сталкивался - где искать ошибку? у меня уже мозги дыбом стоят, если честно

[M.A.D.M.A.N.]

Используй тип TTime. И просто вычитай его.

[poli-smen]

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

И вот проблема в следующем:
если таймер остановлен, например, на значении 04:36, то программа работает корректно. При значении от 03:50 до 03:59 программа вылетает по ошибке. от 03:49 и меньше - опять все хорошо. Есть еще несколько интервалов, на которых выдается системная ошибка. При других значениях таймера при прочих равных условиях (тестирую на одних и тех же данных) программа работает корректно.

Может быть, кто-нибудь с подобным сталкивался - где искать ошибку? у меня уже мозги дыбом стоят, если честно

У меня при этих значениях никаких ошибок не вылетает - значит ошибка в другом месте.
А какая хоть ошибка то?

[bmed]

Сообщение от poli-smen

А какая хоть ошибка то?

обращение к ячейке памяти адрес такой-то read only

[bmed]

Сообщение от M.A.D.M.A.N.

Используй тип TTime. И просто вычитай его.

ой, а можно подробнее - где TTime использовать?

[M.A.D.M.A.N.]

ну устанавливаешь ему время 00:01:55 ну и вычитаешь.
описание типа и как с ним работать - см. справку дельфи.

[bmed]

Сообщение от M.A.D.M.A.N.

ну устанавливаешь ему время 00:01:55 ну и вычитаешь.
описание типа и как с ним работать - см. справку дельфи.

ага, спасибо! попробую

[M.A.D.M.A.N.]

Вывод в лайбу TimeToStr()

[NumLock]

// declare
FTime: TTime;
// initialization 1 min 5 sec
FTime:=StrToTime('00:01:05');
// decrement 1 sec
FTime:=IncSecond(FTime, -1);
// out
Label1.Caption:=TimeToStr(FTime);