Changeset 19 for trunk/Application


Ignore:
Timestamp:
Nov 15, 2012, 6:08:11 PM (12 years ago)
Author:
chronos
Message:
  • Opraveno: Úniky paměti.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55lib
        66Dochazka
         7ChronIS

  • trunk/Application/URegistredModules.pas

    r12 r19  
    1515
    1616uses
    17   UCore, UModuleAttendance;
     17  UModuleAttendance;
    1818
    1919procedure RegisterModules(ModuleManager: TModuleManager);
    2020begin
    2121  UnregisterModules(ModuleManager);
    22   with Core.ModuleManager do
     22  with ModuleManager do
    2323  try
    24     ModuleManager.Modules.BeginUpdate;
     24    Modules.BeginUpdate;
    2525    RegisterModule(TModuleAttendance.Create(nil));
    2626  finally
    27     ModuleManager.Modules.EndUpdate;
     27    Modules.EndUpdate;
    2828  end;
    2929end;
    … …  
    3232var
    3333  I: Integer;
     34  Module: TModule;
    3435begin
     36  with ModuleManager do
    3537  try
    36     ModuleManager.Modules.BeginUpdate;
    37     ModuleManager.Modules.Clear;
     38    Modules.BeginUpdate;
     39    for I := Modules.Count - 1 downto 0 do begin
     40      Module := TModule(Modules[I]);
     41      UnregisterModule(Module);
     42      Module.Free;
     43    end;
    3844  finally
    39     ModuleManager.Modules.EndUpdate;
     45    Modules.EndUpdate;
    4046  end;
    4147end;
Note: See TracChangeset for help on using the changeset viewer.