home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / PERSON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  443 b   |  25 lines
  1.                                      (* Chapter 16 - Program 4 *)
  2. unit Person;
  3.  
  4. interface
  5.  
  6. type
  7.    Person_ID = object
  8.       Name : string[30];
  9.       Salary : integer;
  10.       constructor Init;
  11.       procedure Display; virtual;
  12.    end;
  13.  
  14. implementation
  15.  
  16.    constructor Person_ID.Init;
  17.    begin
  18.    end;
  19.  
  20.    procedure Person_ID.Display;
  21.    begin
  22.       WriteLn('Error - this procedure should never be called.');
  23.    end;
  24.  
  25. end.