home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_03 / 1n03010c < prev    next >
Text File  |  1990-06-14  |  198b  |  15 lines
  1.  
  2. Listing 6
  3.  
  4. {*
  5.  * A safer dispose as a function
  6.  *}
  7. function dispose(p : pointer) : pointer;
  8.         begin
  9.         system.dispose(p);
  10.         dispose := NIL;
  11.         end;
  12.  
  13. ----------
  14.  
  15.