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	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.