Секундомер для Delphi 2007

Question

Есть ли секундомер класса (предпочтительно с открытым исходным кодом), предоставляющий ту же услугу, что и Diagnostics.TStopwatch в Delphi XE?

Answer 1

Мое предпочтение идет к this (TStopUhr) реализации найденного в Delphi Praxis форуме.

Выдержка: образец

type 
    TStopUhr = class 
    private 
     FStoppedTime : Int64; 
     FStartValue : Int64; 
     FStopValue : Int64; 
     FStartTime : TDateTime; 
     FStopTime : TDateTime; 
     FMethode : TStopUhrMethode; 
     FMethodeInUse : TStopUhrMethode; 
    protected 
     function GetStoppedTimeStr: String; 
    public 
     Constructor Create; 
     Destructor Destroy; Override; 
     procedure Start; 
     procedure Stop; 
     property StartTime : TDateTime read FStartTime; 
     property StopTime : TDateTime read FStopTime; 
     property StoppedTime : Int64 read FStoppedTime; 
     property StoppedTimeStr : String read GetStoppedTimeStr; 
     property MeasureMethode : TStopUhrMethode Read FMethode Write FMethode; 
    end; 

Использования:

var 
    StopUhr : TStopUhr; 
begin 
    StopUhr := TStopUhr.Create; 
    StopUhr.MeasureMethode := su_TickCount; // default = su_DateTime 
    StopUhr.Start; 

    // zu messende Aufgabe 

    StopUhr.Stop; 
    ShowMessage(StopUhr.StoppedTimeStr); 
    StopUhr.Free; 
end; 

Он предоставляет аналогичные функциональные возможности какого RRUZ рекомендованных в нити комментария в вопросе.

Answer 2

JCLCounter from Project Jedi очень похож на TStopwatch.

Answer 3

Я понимаю, что это низкотехнологичный, но функция Win32 API GetTickCount работает достаточно хорошо для меня. На большинстве ПК разрешение составляет около 15-20 миллисекунд.

Я использую его, как это, без каких-либо классов, но вы могли бы легко написать свой собственный класс:

function TimerElapsed(tick1,tick2:DWORD):DWORD; 
begin 
    if ((tick2-tick1) < $80000000) then { timer roll-over check } 
     result := (tick2 - tick1) { normal } 
    else 
     result := (not tick1)+tick2; {rollover calculation} 
end; 

function TimingDemo:Cardinal; 
var 
    time1,time2:Cardinal; 
begin 
    time1 := GetTickCount; 
    DoSomethingSlow; 
    time2 := GetTickCount; 
    result := TimerElapsed(time1,time2); // return elapsed mSec. 
end;