diff options
Diffstat (limited to 'unicode/src/base/UTime.pas')
-rw-r--r-- | unicode/src/base/UTime.pas | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/unicode/src/base/UTime.pas b/unicode/src/base/UTime.pas index 83844cb5..3f35dffd 100644 --- a/unicode/src/base/UTime.pas +++ b/unicode/src/base/UTime.pas @@ -61,20 +61,20 @@ procedure CountSkipTime; procedure CountMidTime; var - USTime: TTime; + USTime : TTime; VideoBGTimer: TRelativeTimer; - TimeNew: int64; - TimeOld: int64; - TimeSkip: real; - TimeMid: real; - TimeMidTemp: int64; + TimeNew : int64; + TimeOld : int64; + TimeSkip : real; + TimeMid : real; + TimeMidTemp : int64; implementation uses sdl, - UCommon; + ucommon; const cSDLCorrectionRatio = 1000; @@ -91,14 +91,14 @@ http://www.gamedev.net/community/forums/topic.asp?topic_id=466145&whichpage=1%EE procedure CountSkipTimeSet; begin - TimeNew := SDL_GetTicks(); + TimeNew := SDL_GetTicks(); end; procedure CountSkipTime; begin - TimeOld := TimeNew; - TimeNew := SDL_GetTicks(); - TimeSkip := (TimeNew-TimeOld) / cSDLCorrectionRatio; + TimeOld := TimeNew; + TimeNew := SDL_GetTicks(); + TimeSkip := (TimeNew-TimeOld) / cSDLCorrectionRatio; end; procedure CountMidTime; @@ -127,10 +127,10 @@ end; **} (* - * creates a new timer. - * if triggermode is false (default), the timer + * Creates a new timer. + * If TriggerMode is false (default), the timer * will immediately begin with counting. - * if triggermode is true, it will wait until get/settime() or pause() is called + * If TriggerMode is true, it will wait until Get/SetTime() or Pause() is called * for the first time. *) constructor TRelativeTimer.Create(TriggerMode: boolean); |