Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 36 стр.

                                   37

       Procedure ClearEvent(Var Event:TEvent);virtual;
       end;

       TScheme=object(TObject) {абстрактная группа}
       private
       last:PItem;
       public
       Constructor Init;
       Destructor Done;virtual;
       Procedure Insert(p:PObject);virtual;
       Procedure HandleEvent(Var Event:TEvent);virtual;
       end;

        TDevice=object(TScheme) {абстрактная группа − устройство
управления}
        private
        EndState:byte;
        public
        Procedure GetEvent(Var Event:TEvent);virtual;
        Procedure Run;virtual;
        Function Valid:boolean;virtual;
        Procedure EndExec;virtual;
        end;

       TCalc=object(TDevice) {калькулятор}
       private
       sum,r1:PReg; {указатели на регистр и сумматор}
       public
       Constructor Init;
       Procedure HandleEvent(Var Event:TEvent);virtual;
       Procedure GetEvent(Var Event:TEvent);virtual;
       Procedure Run;virtual;
       Procedure OutPutX;
       Procedure InPutX(x1:real);
       Procedure Help;virtual;
       end;

       TReg=object(TObject) {регистровая память}
       private
       x:real;
       public