54 lines
1.7 KiB
ObjectPascal
54 lines
1.7 KiB
ObjectPascal
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.
|