Changeset 15 for trunk/MyData.lpr

Timestamp:

Mar 22, 2018, 8:31:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Update Common and CollTranslator packages to fix build under Lazarus 1.8.
• Fixed: Some memory leaks.

File:

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

trunk/MyData.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormTables, UDatabase, UCore, Common, CoolTranslator, UEngineXML,
-  UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField, UDataTypes,
-  TemplateGenerics, CoolWeb, synapse, UEngineMySQL, UEngineSQLite, UFormMain,
+  Forms, UFormTables, UCore, Common, CoolTranslator,
+  UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField,
+  TemplateGenerics, CoolWeb, synapse, UFormMain, SysUtils,
   UFormConnect, UFormDatabases, UFormPreferences;
 
 {$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;