ТАЙМЕР для дельфи

← →
CITY_ELF (2003-04-03 17:58) [0]

Не могу сделать таймер на ТЕСТ по математике, который делаю для своего института. Меня просто переклинило. Помогите пожалуйста сделать так, чтобы тест самозавершался спустя час работы.

← →
Anatoly Podgoretsky (2003-04-03 18:09) [1]

Timer.Interval 36000000
В обработчике Close

← →
dimich1978 (2003-04-03 18:20) [2]

А в чем собственно проблема, запоминай время начало теста, а затем прибавляй один час и потом анализируй(сранивай тек. время с тем что ты запомни(+1час) и все как только равно делай terminate. Ну или что ты там хотел

← →
Михайлов Антон (2003-04-03 21:33) [3]

А мож лучше сделать, чтобы видно было сколько время затрачено на тест??
Вот немного из моего ShutDown Timer"a 1.4
------------------------------
var hh,mm,ss,ms:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ms<9 then
ms:=ms+1 else
begin
ms:=0;
if ss<59 then
ss:=ss+1 else
begin
ss:=0;
if mm<59 then
mm:=mm+1 else
Begin
mm:=0;
hh:=hh+1;
end;
end;
end;
end;
---------------------------
Воть...
Это часы,минуты,секунды,милисекунды

Добавь ещё туда if hh=1 then <завершаем прогу> и полёчится то что тебе нужно (завершение теста через час)
А ещё лучше, сделай чтобы лимит настраивать мона было :)

ТАЙМЕР для дельфи Найти похожие ветки