Changeset 149 for trunk/Packages/ModularSystem

Timestamp:

Feb 4, 2024, 2:14:37 PM (9 months ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Added: Project group.
• Modified: Assign ModuleUser to modules which use it in later time.

File:

• trunk/Packages/ModularSystem/UModularSystem.pas (modified) (1 diff)

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -131 +131 @@
 begin
   I := 0;
-  while (I < Modules.Count) and (TModule(Modules[I]).Identification <> Name) do Inc(I);
-  if I < Modules.Count then Result := TModule(Modules[I])
+  while (I < Modules.Count) and (Modules[I].Identification <> Name) do Inc(I);
+  if I < Modules.Count then Result := Modules[I]
     else Result := nil;
 end;