Changeset 138 for trunk/Modules/System/UModuleSystem.pas

Timestamp:

Sep 9, 2022, 8:20:25 PM (21 months ago)

Author:

chronos

Message:

• Modified: Removed TemplateGenerics package. Generics usage replaced by standard Generics.Collections.

File:

• trunk/Modules/System/UModuleSystem.pas (modified) (3 diffs)

trunk/Modules/System/UModuleSystem.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary;
+  Classes, SysUtils, UModularSystem, UGenerics;
 
 type
@@ -75 +75 @@
     for I := 0 to DbRows.Count - 1 do
     with DbRows[I] do begin
-      Module := Manager.FindModuleByName(Values['Name']);
+      Module := Manager.FindModuleByName(Items['Name']);
       if Assigned(Module) then
-        if Values['Installed'] = '1' then Module.SetInstalledState(True)
+        if Items['Installed'] = '1' then Module.SetInstalledState(True)
           else Module.SetInstalledState(False);
     end;
@@ -165 +165 @@
 
       Index := 0;
-      while (Index < DbRows.Count) and (DbRows[Index].Values['Name'] <> Identification) do Inc(Index);
+      while (Index < DbRows.Count) and (DbRows[Index].Items['Name'] <> Identification) do Inc(Index);
       if Index >= DbRows.Count then Core.CommonDatabase.Insert('SystemModule', Data)
         else Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Identification + '"');