sdpStopwatch.pas

// Ìîäóëü, ðåàëèçóþùèé îáúåêò-ñåêóíäîìåð.
// Âåðñèÿ äëÿ Delphi 5 è 32-õ ðàçðÿäíûõ ïðîöåññîðîâ.
// Àâòîð: Ñèäîðîâ Ä. Ï.

unit sdpStopwatch;

interface

type
  // Ñåêóíäîìåð
  TStopwatch = class
    procedure Start;                                    // Çàïóñêàåò ñåêóíäîìåð
    procedure Stop;                                 // Îñòàíàâëèâàåò ñåêóíäîìåð
    function GetValueStr: String;             // Çàìåðåííîå âðåìÿ â âèäå ñòðîêè
    function GetValueMSec: Cardinal;        // Çàìåðåííîå âðåìÿ â ìèëëèñåêóíäàõ
  private
    StartTime: TDateTime;                          // Âðåìÿ çàïóñêà ñåêóíäîìåðà
    StopTime: TDateTime;                         // Âðåìÿ îñòàíîâêè ñåêóíäîìåðà
  end;

implementation

uses
  SysUtils;

// ****************************************************************************
// **********               Ìåòîäû îáúåêòà TStopwatch                **********
// ****************************************************************************

procedure TStopwatch.Start;
begin
  StartTime := Time;
end;

procedure TStopwatch.Stop;
begin
  StopTime := Time;
end;

function TStopwatch.GetValueStr: String;
var
  Value: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
  Value := StopTime - StartTime;
  DecodeTime(Value, Hour, Min, Sec, MSec);
  Result := IntToStr(Hour) + ':' + IntToStr(Min) + ':' + IntToStr(Sec) + '.' +
    IntToStr(MSec);
end;

function TStopWatch.GetValueMSec: Cardinal;
var
  Value: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
  Value := StopTime - StartTime;
  DecodeTime(Value, Hour, Min, Sec, MSec);
  Result := 3600*1000*Hour + 60*1000*Min + 1000*Sec + MSec;
end;

end.