Проблема с таймером обратного отсчета

[nursak]

Добрый день! Я пишу тест - в нём присутствует таймер обратного отсчета. По истечении 30 минут он выдаёт сообщение об окончании теста. Всё работает, но есть одно НО - таймер отсчитывает значения в секундах, а я хотел бы отобразить это в формате минута:секунды.
Вот код таймера:

//Глобальная переменная
var 
i:integer;

//Выбор теста из выпадающего списка
procedure TsTest.TestBoxCloseUp(Sender: TObject);
begin
  ball:=0;
  now:=0;
  button1.Enabled:=true;
  button1.Caption:='Следующий вопрос';
  LoadTest(TestBox.ItemIndex);
  Timer1.Enabled:=false; // на всякий случай включаю и выключаю,
  Timer1.Enabled:=true; // чтобы сбросить счетчик (по крайней мере мне кажется это приемлимым)
  i:=1801; //время в секундах
end;

procedure TsTest.Timer1Timer(Sender: TObject);
begin
i:=i-1;
Label1.Caption:='Осталось  '+inttostr(i)+' Секунд';
If i=-1 then
begin
showmessage('Время вышло, тест завершен'+#13+'Правильных ответов: '+inttostr(ball));
Button1.Enabled:=false;
Label1.Caption:='Время вышло';
Timer1.Enabled:=false;
end;

Как преобразовать формат "секунды" в "минута:секунды" ?

[Valio]

Лучше написать так:

If i <=-1 then ..

я уже не помню, но вроде у меня таймер любил "проскакивать"... хотя фиг знает, может я чтото не так писал.

Про секунд, это элементарная математика, подумай.

[nursak]

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

Про секунд, это элементарная математика, подумай.

Я прошу помочь в этом

[Valio]

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

Я прошу помочь в этом

Максимум что я могу для вас сделать:

1. В минуте 60 секунд.
2. http://www.delphisources.ru/pages/fa...s/Div.php.html

[nursak]

Valio Спасибо за ссылку, своими мозгами думать приятней)
Вот что у меня вышло:

//Глобальная переменная
Var
minutes:integer;

procedure TsTest.Timer1Timer(Sender: TObject);
begin
i:=i-1;
minutes:=i div 60;
Label1.Caption:='Осталось  '+inttostr(minutes)+':'+inttostr(i)+' секунд';
If i=-1 then
begin
showmessage('Время вышло, тест завершен.'+#13+'Правильных ответов: '+inttostr(ball));
Button1.Enabled:=false;
Label1.Caption:='Время вышло';
Timer1.Enabled:=false;
end;

Однако у меня возникла проблема: отсчет минут работает, но с секундами проблема. Пример: Осталось 28:1789 секунд.

[Valio]

Вот ты нашёл сколько минут, а теперь умножь это кол-во минут на 60 и вычти из общего кол-ва сек. Остатком и будет кол-во секунд.

i - (i div 60)*60 - вот както так.

Или не заниматься идиотизмом и использовать mod http://www.delphisources.ru/pages/fa...s/Mod.php.html

[nursak]

Если я пишу:

i:=i-1;
i:=i-(i div 60)*60;
minutes:=i div 60;

То у меня идёт обратный отсчет с 00:59, затем таймер останавливается и срабатывает showmessage. Кажется я перестал понимать что делать дальше.

UPD:
Label1.Caption:='Осталось '+inttostr(minutes)+':'+inttostr(i div 30)+' секунд';
Показывает 29:59 - но отсчет не идёт, странно как то

[Valio]

Надо было так:

minutes := i div 60;
seconds := i mod 60;
Label1.Caption:='Осталось  '+inttostr(minutes)+':'+inttostr(seconds)+' секунд';

[nursak]

Label1.Caption:='Осталось  '+inttostr(minutes)+':'+inttostr(i mod 30)+' секунд';

Вот теперь заработало, вот же я...

[nursak]

Чёрт рано радоваться - он отсчитал до 1:00 потом начал отсчет с 1:29 потом когда отсчитал до 0 начал отсчитывать с 30 сек (2 раза подряд при том) и только потом отобразил showmessage.
Сейчас попробую сделать как ты написал