home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D / SNPTST20.ZIP / TestDLL / LeakDLLU.pas next >
Pascal/Delphi Source File  |  1998-07-25  |  192b  |  20 lines
  1. unit LeakDLLU;
  2.  
  3. interface
  4.  
  5. procedure LeakyProc;
  6.  
  7. implementation
  8.  
  9. procedure LeakyProc;
  10. var
  11.   p,q: pointer;
  12. begin
  13.   GetMem(q,333);
  14.   GetMem(p,200);
  15.   FreeMem(q);
  16. end;
  17.  
  18.  
  19. end.
  20.