Initial check in

2026-01-03 18:53:14 +01:00
commit b9305ab8af
36 changed files with 6720 additions and 0 deletions
@@ -0,0 +1,42 @@
+unit mr.dev;
+
+interface
+uses
+   mr.drv;
+
+type
+   TDevice = class(TInterfacedObject)
+      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.