Delphi 在Debug下开启内存泄漏检查

都是写着应用程序入口的Begin..end中。 

1、第一种方法

 {$ifdef DEBUG}

    ReportMemoryLeaksOnShutDown := True; //插入到应用程序入口的begin语句下。

  {$endif}

 

 2、第二种方法

{$WARN SYMBOL_PLATFORM OFF}

  // 在程序调试时，检测是否有内存泄漏

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

{$WARN SYMBOL_PLATFORM ON}