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,53 @@
+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.