home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol8n20.zip / CONSTRUC.PAS next >
Pascal/Delphi Source File  |  1989-10-18  |  659b  |  43 lines
  1. CONSTRUC.PAS
  2.  
  3.  
  4.  
  5. PROGRAM construc;
  6.  
  7. TYPE
  8.   Parent = OBJECT
  9.     CONSTRUCTOR Init;
  10.     PROCEDURE InitializeParent;
  11.     PROCEDURE Message; Virtual;
  12.   END;
  13.  
  14.   Child = OBJECT(Parent)
  15.     CONSTRUCTOR Init;
  16.     PROCEDURE Message; Virtual;
  17.   END;
  18.  
  19. CONSTRUCTOR Parent.Init; 
  20. BEGIN END;
  21.  
  22. PROCEDURE Parent.InitializeParent;
  23. BEGIN
  24.   Init; {- Calls Parent.Init -}
  25. END;
  26.  
  27. PROCEDURE Parent.Message; 
  28. BEGIN WriteLn('Parent Message'); END;
  29.  
  30. CONSTRUCTOR Child.Init; 
  31. BEGIN InitializeParent; END;
  32.  
  33. PROCEDURE Child.Message; 
  34. BEGIN Writeln('Child Message'); END;
  35.  
  36. VAR
  37.   ChildInst: Child;
  38.  
  39. BEGIN
  40.   ChildInst.Init;
  41.   ChildInst.Message;
  42. END.
  43.