unit mr.dev;

interface
uses
   mr.drv;

type
   TDevice = class
      protected
         fDriver : TDriver;

      public
         procedure   Open;    virtual; abstract;
         procedure   Close;   virtual; abstract;

      public
         constructor Create( Driver : TDriver);
   end;

implementation

{ TDevice }

// @@@: Construction / destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
//                                  Construction / destruction
//
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// ================================================================================================
// Constructor
// ================================================================================================
constructor TDevice.Create(Driver: TDriver);
begin
   inherited Create;
   fDriver := Driver;
end;

end.