source: branches/bigint/Device.pas

unit Device;

interface

uses
  Classes, SysUtils, Int;

type
  { THandlers }

  THandlers = class
    ReadHandlers: TReadEvents;
    WriteHandlers: TWriteEvents;
    constructor Create;
    destructor Destroy; override;
  end;

  { TDevice }

  TDevice = class
    function GetHandlers: THandlers; virtual;
  end;


implementation

{ THandlers }

constructor THandlers.Create;
begin
  ReadHandlers := TReadEvents.Create;
  WriteHandlers := TWriteEvents.Create;
end;

destructor THandlers.Destroy;
begin
  FreeAndNil(ReadHandlers);
  FreeAndNil(WriteHandlers);
  inherited;
end;

{ TDevice }

function TDevice.GetHandlers: THandlers;
begin
  Result := nil;
end;

end.