Changeset 138 for trunk/Pages/UPageAdmin.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/Pages/UPageAdmin.pas (modified) (4 diffs)

trunk/Pages/UPageAdmin.pas

@@ -61 +61 @@
 begin
   with TWebSession(HandlerData) do begin
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       TModuleSystem(ModuleManager.FindModuleByName('System')).UpdateModuleList;
       Text := 'Seznam modulů synchronizován';
@@ -76 +76 @@
 begin
   with TWebSession(HandlerData) do begin
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := Text + '<strong>Registred modules:</strong><br/>' +
         '<table class="WideTable"><tr><th>Name</th><th>Installed</th><th>Title</th><th>Version</th>' +
@@ -99 +99 @@
   ModuleName: string;
   Module: TModule;
+  Name: string;
 begin
   with TWebSession(HandlerData) do begin
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-      if Request.Query.SearchKey('name') <> -1 then begin
-        ModuleName := Request.Query.Values['name'];
+    with HtmlDocument.Body, SubItems.AddString do begin
+      if Request.Query.TryGetValue('name', Name) then begin
+        ModuleName := Name;
         Module := ModuleManager.FindModuleByName(ModuleName);
         if Assigned(Module) then begin
@@ -121 +122 @@
   ModuleName: string;
   Module: TModule;
+  Name: string;
 begin
   with TWebSession(HandlerData) do begin
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-      if Request.Query.SearchKey('name') <> -1 then begin
-        ModuleName := Request.Query.Values['name'];
+    with HtmlDocument.Body, SubItems.AddString do begin
+      if Request.Query.TryGetValue('name', Name) then begin
+        ModuleName := Name;
         Module := ModuleManager.FindModuleByName(ModuleName);
         if Assigned(Module) then begin