Delphi 2007 秒表类

Question

是否有一个秒表类（最好是开源的）提供与 Delphi XE 中的 Diagnostics.TStopwatch 相同的服务？

Answer 1

绝地计划中的 JCLCounter 与 TStopwatch 非常相似。

Answer 2

我意识到它的技术含量较低，但 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;

Answer 3

我的偏好是这个 (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 类似的功能。