Changeset 14 for trunk/FioInfo.lpr

Timestamp:

Mar 19, 2013, 8:38:28 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Možnost nastavit si formát jména výstupního souboru.
• Opraveno: Omezení nastavení časového intervalu na povolené hodnoty.

File:

• trunk/FioInfo.lpr (modified) (1 diff)

trunk/FioInfo.lpr

@@ -13 +13 @@
 {$R *.res}
 
+{$IFDEF DEBUG}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$IFDEF DEBUG}
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   RequireDerivedFormResource := True;
   Application.Initialize;