43 lines
1.3 KiB
ObjectPascal
43 lines
1.3 KiB
ObjectPascal
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.
|