home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / ObjOp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-05  |  536 b   |  24 lines
  1. unit ObjOp;
  2. {Operation for objective VM}
  3. interface
  4. uses
  5.      uExecution;
  6. Type TObjOp=class
  7.      public
  8.         OpCode:Integer;
  9.         Constructor Create;virtual;
  10.         Destructor  Destroy;override;
  11.         procedure Execute(a:IExecution);virtual;abstract;
  12.      end;
  13.      TObjOpClass=class of TObjOp;
  14. implementation
  15. Constructor TObjOp.Create;
  16.             begin
  17.               Inherited Create;
  18.             end;
  19. Destructor  TObjOp.Destroy;
  20.             begin
  21.               Inherited Destroy;
  22.             end;
  23. end.
  24.