unit m.base;

interface
uses
   mr.trinity;

type
   TmodBase = class (TInterfacedObject)
      protected
         fDevice     : TTrinity;

      // ------------------------------------------------------------
      // construction / destruction
      // ------------------------------------------------------------
      public
         constructor Create( dev: TTrinity);
         destructor  Destroy; override;
   end;


implementation
uses
   SysUtils;

{ TmodBase }

// @@@: construction / destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
//                                  construction / destruction
//
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ================================================================================================
// constructor
// ================================================================================================
constructor TmodBase.Create(dev: TTrinity);
begin
   inherited Create;
   fDevice := dev;
end;

// ================================================================================================
// destructor
// ================================================================================================
destructor TmodBase.Destroy;
begin
   inherited;
end;

end.