home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pascal / qp_paint.arc / COBJECT.PAS < prev    next >
Pascal/Delphi Source File  |  1989-05-22  |  456b  |  29 lines
  1. {$B-,F-,I+,R+}
  2.  
  3. unit CObject;
  4.  
  5. { Define TObject - the base class for all classes }
  6.  
  7. { Copyright 1989
  8.   Scott Bussinger
  9.   110 South 131st Street
  10.   Tacoma, WA  98444
  11.   (206)531-8944
  12.   Compuserve 72247,2671 }
  13.  
  14. interface
  15.  
  16. type TObject = object
  17.        procedure Free;                           { Release any object }
  18.        end;
  19.  
  20. implementation
  21.  
  22. procedure TObject.Free;
  23.   { Release any object }
  24.   begin
  25.   dispose(self)
  26.   end;
  27.  
  28. end.
  29.