[Rastakz]

Сколотил программу для тестирования знаний по делфи 7. Так вот сможите сделать на тестирование довалось время минут так 30. Я выложил исходник. Если можите помогите и опишите сразу как вы это все делали. Что бы прочесть и понять что там да как


http://download.files.namba.kz/files/207625

[Bars1992]

А что тут думать? Создоешь глобально переменную Integer и заносиш туда 1800(30 мин). Коидаешь на форму таймер с интервалом в одну секунду. При срабатывании таймера отнимаешь от переменной один и выводиш рез на екран. Если результат отнимания = 0 тогда выводиш сообщение мол сорри ваше время вышло и закрываешь прогу или чтото там ище

[Rastakz]

А ты сможешь это сделать,потому что из того что ты мне написал. Я половину и не понял

[T-dayne]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
label1.caption:='Время осталось: '+inttostr(i);
if i=0 then showmessage('Время вышло') else timer1.enabled:=true;
end;

У таймера свойство interval на 1000
Переменная i объявлена в главном var как integer;