Changeset 10 for trunk/Integrated.lpr

Timestamp:

Jan 7, 2017, 2:33:20 PM (7 years ago)

Author:

chronos

Message:

• Modified: Created CevoComponents ackage for installable custom components.
• Fixed: Compile time range check error.
• Added: Heaptrace check and fixed some memory leaks.
• Fixed: MaskD function.

File:

• trunk/Integrated.lpr (modified) (2 diffs)

trunk/Integrated.lpr

@@ -3 +3 @@
 
 uses
-  Forms, Interfaces,
+  Forms, Interfaces, SysUtils,
   StringTables in 'StringTables.pas',
   Directories in 'Directories.pas',
@@ -47 +47 @@
 {$R cevo.RES}
 
+{$IFDEF DEBUG}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$IFDEF DEBUG}
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   DotNetClient := nil;
   Application.Initialize;