dao/DelphiScanner/TimingHelper.pas

unit TimingHelper;

interface

type
  TTimingHelper = class
  private
    timeStart, timeEnd : TDateTime;

  public
    constructor create();
    procedure start();
    procedure stop(lbl : string);


  end; // End of TTimingHelper

implementation

uses SysUtils,DateUtils,Windows;

constructor TTimingHelper.create();
begin

  timeStart := Now;
end;

procedure TTimingHelper.start();
begin
  timeStart := Now;
end;


procedure TTimingHelper.stop(lbl : string);
begin
  timeEnd := Now;

  OutputDebugString(
    PChar( lbl + ':  ' + IntToStr( DateUtils.MilliSecondsBetween(timeend, timeStart) ))
  ) ;

  timeStart := Now;

end;

end.
1	torben	3076	unit TimingHelper;
2
3			interface
4
5			type
6			TTimingHelper = class
7			private
8			timeStart, timeEnd : TDateTime;
9
10			public
11			constructor create();
12			procedure start();
13			procedure stop(lbl : string);
14
15
16			end; // End of TTimingHelper
17
18			implementation
19
20			uses SysUtils,DateUtils,Windows;
21
22			constructor TTimingHelper.create();
23			begin
24
25			timeStart := Now;
26			end;
27
28			procedure TTimingHelper.start();
29			begin
30			timeStart := Now;
31			end;
32
33
34			procedure TTimingHelper.stop(lbl : string);
35			begin
36			timeEnd := Now;
37
38			OutputDebugString(
39			PChar( lbl + ': ' + IntToStr( DateUtils.MilliSecondsBetween(timeend, timeStart) ))
40			) ;
41
42			timeStart := Now;
43
44			end;
45
46			end.