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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

36
INTERFACE
Const
evNothing=$0000;
evMessage=$0100;
cmSet = 1; {занести число в сумматор}
cmGet = 2; {посмотреть число в сумматор}
cmAdd = 3; {сложить}
cmSub = 4; {вычесть}
cmMult = 5; {умножить}
cmDel = 6; {делить}
cmHelp = 7; {помощь}
cmQuit=100;{выход}
Type TEvent=record
What:word;
case word of
evNothing:();
evMessage:(
command:word; {команда}
A:real;) {параметр, передаваемый с командой}
end;
{**КЛАССЫ**}
PObject=^TObject;
PScheme=^TScheme;
PDevice=^TDevice;
PCalc=^TCalc;
PReg=^TReg;
PItem=^TItem;
TItem=record
next:PItem;
ptr:PObject;
end;
TObject=object {абстрактный класс}
private
owner:PScheme; {указатель на владельца}
public
Constructor Init;
Destructor Done;virtual;
Procedure HandleEvent(Var Event:TEvent);virtual; 
                             36
INTERFACE
Const
  evNothing=$0000;
  evMessage=$0100;
  cmSet = 1; {занести число в сумматор}
  cmGet = 2; {посмотреть число в сумматор}
  cmAdd = 3; {сложить}
  cmSub = 4; {вычесть}
  cmMult = 5; {умножить}
  cmDel = 6; {делить}
  cmHelp = 7; {помощь}
  cmQuit=100;{выход}

Type TEvent=record
   What:word;
   case word of
   evNothing:();
   evMessage:(
   command:word; {команда}
   A:real;) {параметр, передаваемый с командой}
   end;

  {**КЛАССЫ**}
   PObject=^TObject;
   PScheme=^TScheme;
   PDevice=^TDevice;
   PCalc=^TCalc;
   PReg=^TReg;

  PItem=^TItem;
  TItem=record
  next:PItem;
  ptr:PObject;
  end;

  TObject=object {абстрактный класс}
  private
  owner:PScheme; {указатель на владельца}
  public
  Constructor Init;
  Destructor Done;virtual;
  Procedure HandleEvent(Var Event:TEvent);virtual;

Страницы