home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / TOT11.ZIP / TOTDEM11.ZIP / EXTDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  765b  |  45 lines
  1. Unit ExtDem1;
  2.  
  3. {A demonstration of how to improve an object using inheritance}
  4.  
  5. INTERFACE
  6.  
  7. Uses DOS,CRT, totSYS;
  8.  
  9. TYPE
  10.  
  11. NewEquipOBJ = object (EquipOBJ)
  12.    constructor Init;
  13.    function    CDROM: boolean;
  14.    function    GameAdapter: boolean;
  15.    destructor  Done;
  16. end; {NewEquipOBJ}
  17.  
  18. IMPLEMENTATION
  19.  
  20. constructor NewEquipOBJ.Init;
  21. {}
  22. begin
  23.    EquipOBJ.Init;
  24. end; {NewEquipOBJ.Init}
  25.  
  26. function NewEquipOBJ.CDROM:boolean;
  27. {If you know how to do this - please tell us!}
  28. begin
  29.    CDROM := false;
  30. end; {NewEquipOBJ.CDROM}
  31.  
  32. function NewEquipOBJ.GameAdapter:boolean;
  33. {}
  34. begin
  35.    GameAdapter := paramstr(1) = '/G';
  36. end; {NewEquipOBJ.GameAdapter}
  37.  
  38. destructor NewEquipOBJ.Done;
  39. {}
  40. begin
  41.    EquipOBJ.Done;
  42. end; {NewEquipOBJ.Done}
  43.  
  44.  
  45. end.