Changeset 89 for trunk/Packages/Common/StopWatch.pas

Timestamp:

Sep 6, 2012, 8:29:27 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Balíček ModularSystem namísto vlastní implementace.
• Upraveno: Aktualizace balíčku Common.

File:

• trunk/Packages/Common/StopWatch.pas (modified) (2 diffs)

trunk/Packages/Common/StopWatch.pas

@@ -43 +43 @@
   fIsHighResolution := QueryPerformanceFrequency(fFrequency) ;
   {$ELSE}
-  raise Exception.Create('Not implemeneted');
+  fIsHighResolution := False;
   {$ENDIF}
   if NOT fIsHighResolution then fFrequency := MSecsPerSec;
@@ -61 +61 @@
     QueryPerformanceCounter(lInt)
     {$ELSE}
-    raise Exception.Create('Not implemeneted')
     {$ENDIF}
   else