home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D / SNOOP420.ZIP / Snoop.int < prev   
Text File  |  1998-07-25  |  935b  |  44 lines
  1. //
  2. // SNOOP v2.0 for Delphi 2 & 3 
  3. //
  4. // Snoop out those memory leaks!
  5. //
  6. // Copyright 1997,1998 Robert R. Marsh, S.J. & 
  7. // the British Province of the Society of Jesus.
  8. // All rights reserved.
  9. //
  10. // e-mail: rrm@sprynet.com
  11. //
  12.  
  13. unit Snoop;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils;
  19.  
  20. type
  21.   ESnoopError        = class(Exception);
  22.   ESnoopOutputError  = class(ESnoopError);
  23.   ESnoopPointerError = class(ESnoopError);
  24.   ESnoopMapFileError = class(ESnoopError);
  25.   ESnoopListError    = class(ESnoopError);
  26.  
  27. var
  28.   SnoopLogFile: string;           // the file to log memory leaks to:
  29.                                   // the default is '<MapName>.SNP'
  30.  
  31. function Snooping: boolean;       // is Snoop active ?
  32.  
  33. const
  34.   Off       = false;
  35.   Onn       = true;
  36.  
  37. procedure Switch(onoff: boolean); // switch Snoop on/off
  38.  
  39. procedure CheckForCorruption(onoff: boolean); //switch corruption checking
  40.  
  41. implementation
  42.  
  43. end.
  44.