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.