Delphi 2007的秒錶類

Question

在Delphi XE中有沒有提供與Diagnostics.TStopwatch相同的服務的秒錶類（最好是opensource）？

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功能對我來說足夠好。在大多數PC上，分辨率約爲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;