Changeset 19 for trunk/Application/URegistredModules.pas

Timestamp:

Nov 15, 2012, 6:08:11 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Úniky paměti.

Location:

trunk

Files:

• . (modified) (1 prop)
• Application/URegistredModules.pas (modified) (2 diffs)

trunk

@@ -5 +5 @@
 lib
 Dochazka
+ChronIS

@@ -5 +5 @@
 lib
 Dochazka
+ChronIS

trunk/Application/URegistredModules.pas

@@ -15 +15 @@
 
 uses
-  UCore, UModuleAttendance;
+  UModuleAttendance;
 
 procedure RegisterModules(ModuleManager: TModuleManager);
 begin
   UnregisterModules(ModuleManager);
-  with Core.ModuleManager do
+  with ModuleManager do
   try
-    ModuleManager.Modules.BeginUpdate;
+    Modules.BeginUpdate;
     RegisterModule(TModuleAttendance.Create(nil));
   finally
-    ModuleManager.Modules.EndUpdate;
+    Modules.EndUpdate;
   end;
 end;
@@ -32 +32 @@
 var
   I: Integer;
+  Module: TModule;
 begin
+  with ModuleManager do
   try
-    ModuleManager.Modules.BeginUpdate;
-    ModuleManager.Modules.Clear;
+    Modules.BeginUpdate;
+    for I := Modules.Count - 1 downto 0 do begin
+      Module := TModule(Modules[I]);
+      UnregisterModule(Module);
+      Module.Free;
+    end;
   finally
-    ModuleManager.Modules.EndUpdate;
+    Modules.EndUpdate;
   end;
 end;

@@ -5 +5 @@
 lib
 Dochazka
+ChronIS