Ĺadny brzuch
W jaki spsób liczycie czas gry ?
Ja obecnie używam czegoś takiego:
var p:Extended; time:integer; ...ONCREATE MAINFORM... p := GetTickCount; ...GŁÓWNA PĘTLA GRY... time := round((GetTickCount-p)/1000)
Jak widać zmienna time przyjmuje czas gry liczony w sekundach.
Znacie może jakieś lepsze i mniej czasochłonne sposoby? (bez tych roundów,dzieleń...)
Jeżeli chcesz policzyć czas gry to po co za każdym razem przypisujesz jakis czas do time. Wystarczy, że na początku w OnCreate zostawisz tak jak jest i na końcu gry zmierzysz czas i odejmniejsz. Jak dla mnie również można by liczyć czas w ms, wtedy by nie trzeba dzielić i zaorkęglać w ogóle zmienna p może być DWORD a nie jakiś ekstended.
Można użyć funkcji:
(Do uses trzeba dodać MMSystem)
TimeGetTime
Albo dokładniejszą:
QueryPerformanceFrequency, QueryPerformanceCounter
http://www.swissdelp...code.php?id=498
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ja obecnie używam czegoś takiego:
var p:Extended; time:integer; ...ONCREATE MAINFORM... p := GetTickCount; ...GŁÓWNA PĘTLA GRY... time := round((GetTickCount-p)/1000)
Jak widać zmienna time przyjmuje czas gry liczony w sekundach.
Znacie może jakieś lepsze i mniej czasochłonne sposoby? (bez tych roundów,dzieleń...)
Jeżeli chcesz policzyć czas gry to po co za każdym razem przypisujesz jakis czas do time. Wystarczy, że na początku w OnCreate zostawisz tak jak jest i na końcu gry zmierzysz czas i odejmniejsz. Jak dla mnie również można by liczyć czas w ms, wtedy by nie trzeba dzielić i zaorkęglać w ogóle zmienna p może być DWORD a nie jakiś ekstended.
Można użyć funkcji:
(Do uses trzeba dodać MMSystem)
TimeGetTime
Albo dokładniejszą:
QueryPerformanceFrequency, QueryPerformanceCounter
http://www.swissdelp...code.php?id=498