TEpikTimer

type TEpikTimer = class(TComponent)

protected

  function GetSelectedTimebase;

  procedure SetSelectedTimebase();

  procedure SetTimebaseSource();

  procedure GetCorrelationSample();

public

  procedure Clear();

  procedure Start();

  procedure Stop();

  function Elapsed();

  function ElapsedDHMS();

  function ElapsedStr();

  function WallClockTime;

  function SystemSleep(); virtual;

  property HWTimebase: TimebaseData; [rw]

  property SysTimebase: TimebaseData; [rw]

  function GetHardwareTicks;

  function GetSystemTicks;

  function GetTimebaseCorrelation;

  function CalibrateCallOverheads(); virtual;

  function CalibrateTickFrequency(); virtual;

  property MicrosecondSystemClockAvailable: Boolean; [r]

  property SelectedTimebase: TimeBaseSelector; [rw]

  property HWTickSupportAvailable: Boolean; [r]

  property HWCapabilityDataAvailable: Boolean; [r]

  procedure CorrelateTimebases;

  constructor Create(); override;

  destructor Destroy; override;

published

  property StringPrecision: FormatPrecision; [rw]

  property WantMilliseconds: Boolean; [rw]

  property WantDays: Boolean; [rw]

  property TimebaseSource: TickSources; [rw]

  property CorrelationMode: CorrelationModes; [rw]

end;

TEpikTimer

TObject