Как поставить таймер в паскале?

[Timon779]

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

Unit Timer;
interface
procedure Start (var T:longint); {longint-öåëîå 32 áèòíîå ÷èñëî ñî çíàêîì}
procedure Stop (var T:longint);
procedure Pause (T:longint; Show:boolean); {ðàçðåøåíèå èëè çàïðåò âûâîäà}
                                           {íà ýêðàí}
Implementation
SystemTimer:longint absolute $0040:$006C;
procedure Start(var T:longint);
begin
   T:=SystemTimer;
end;
procedure Stop (var T:longint);
begin
 T:=SustemTimer-T;
end;
procedure Pause (T:longint; Show: boolean);
var Xn, Xt:longint;
begin
   Xt:=0;
   Xn:=SystemTimer;
   While((Xt-Xn)/18.2)*1000<T do
   begin
      Xt:=SystemTimer;
      If Show then
      writeln((xt-xn)/18.2:6:4)
      end;
   end;
end.

и запускающее его приложение

program TimerPrimer;
uses Timer;
Var
   i: integer;
   a: Real;
   Time:longInt;
begin
   Randomize;
   Start(Time);
   For i:=1 to 30000 do
   a:=Sin(sqrt(i))*Cos(sqrt(Random(10000)));
   Stop(Time);
   Writeln('Âðåìÿ âûïîëíåíèÿ: ',Time/18.2:6:4);
   Readln;
   Pause(10000,True);
end.

Только вот строка

SystemTimer:longint absolute $0040:$006C;

не компилируется, потому что windows xp не допускает прямого доступа к аппаратным часам. Как это обойти?

[Stilet]

В просто получить в начале игры дату и время, и получить в конце игры дату время уже не в моде?

[Timon779]

ну дата там не нужна) там нужно, чтобы когда запускается игра начинался отсчёт времени и если игрок добирается до финиша или же где-то проваливается, время останавливалось. Потому что потом по этим результатам надо будет статистику победителей делать. Нужно чтобы во время игры маленькие цифровые часы сверху показывали, сколько времени прошло с начала игры

[Stilet]

Ну тогда в цикле игры поставь запоминание времени. Функция Time вроде еще существует.

[Timon779]

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

Ну тогда в цикле игры поставь запоминание времени. Функция Time вроде еще существует.

спасибо, посмотрю что за функция

[Serge_Bliznykov]

SystemTimer:longint absolute $0040:$006C;

не компилируется, потому что windows xp не допускает прямого доступа к аппаратным часам. Как это обойти?

позвольте полюбопытствовать - а не компилируются ГДЕ?! (Каким компилятором Вы пытаетесь откомпилировать ?)
Дело в том, что эта строчка в ДОС Turbo Pascal (именно под Windows XP ) прекрасно компилируется!!

[Timon779]

rкомпилирую FREE Pascal IDE, он у меня пишет

TIMER.PAS (9,12) Error: Identifier not found "SystemTimer" 
TIMER.PAS (9,12) Fatal: Syntax error, ";" expected but ":" found

а запускающий его TimerPrimer пишет:

"BEGIN" expected but "identifier SYSTEMTIMER" found

Предположение о том, что это хр не допускает программу к аппаратным часам я взял отсюда http://faqs.org.ru/forum/viewtopic.php?t=7387

[Serge_Bliznykov]

компилирую FREE Pascal IDE

понятно. это в нём проблема...
кстати, это, вероятно версия под Win32 ?! (дистрибутив назывался fpc-2.4.0.i386-win32.exe ?!

или всё же DOS версия? (дистрибутив dos240xxxx.zip) ?

Если DOS версия, то, 1) должно и absolute сойти
2) может пройти такой код:

var
  h, m, s, hund : Word;
begin
  GetTime(h,m,s,hund);
...

если же версия Win32
то пробуйте такой код:

  var DT : TDateTime;
begin
  DT := Time;
...

[Timon779]

У меня тот, что 2.4.0 Сейчас вот переписал, но всё равно опять не компилируется

Unit Timer;
interface
procedure Start (var DT:TimeDate); {longint-öåëîå 32 áèòíîå ÷èñëî ñî çíàêîì}
procedure Stop (var DT:TimeDate);
procedure Pause (DT:TimeDate); Show:boolean); {ðàçðåøåíèå èëè çàïðåò âûâîäà}
                                           {íà ýêðàí}
Implementation
begin
DT := Time;
procedure Start(var DT:TimeDate);
end;
procedure Stop (var DT:TimeDate);
begin
 T:=SystemTimer-T;
end;
procedure Pause (DT:TimeDate; Show: boolean);
var Xn, Xt:TimeDate;
begin
   Xt:=0;
   Xn:=SystemTimer;
   While((Xt-Xn)/18.2)*1000<T do
   begin
      Xt:=SystemTimer;
      If Show then
      writeln((xt-xn)/18.2:6:4)
      end;
   end;
end.

[Serge_Bliznykov]

но всё равно опять не компилируется

а что пишет?!

TimeDate

а откуда Вы взяли такой тип данных?!
: TDateTime пробовали?