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

trunk/Modules/ZdechovNET/UHostingPage.pas

@@ -39 +39 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
       '<strong>Standardní varianty:</strong><br/>' +
@@ -48 +48 @@
         Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');
         for I := 0 to DbRows.Count - 1 do
-          Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
-            DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
-            '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
-            DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';
+          Text := Text + '<tr><td>' + DbRows[I].Items['Name'] + '</td><td align="center">' +
+            DbRows[I].Items['Internet'] + '</td><td align="center">' + DbRows[I].Items['Memory'] +
+            '</td><td align="center">' + DbRows[I].Items['Space'] + '</td><td align="center">' +
+            DbRows[I].Items['CPU'] + '</td><td align="center">' + DbRows[I].Items['Price'] + '</td></tr>';
       finally
         DbRows.Free;
@@ -69 +69 @@
         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
         for I := 0 to DbRows.Count - 1 do
-          if DbRows[I].Values['Homepage'] <> '' then
-          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
-            DbRows[I].Values['Name'] + '</a></li>'
-            else Text := Text + '<li>' + DbRows[I].Values['Name'] + '</li>';
+          if DbRows[I].Items['Homepage'] <> '' then
+          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
+            DbRows[I].Items['Name'] + '</a></li>'
+            else Text := Text + '<li>' + DbRows[I].Items['Name'] + '</li>';
         Text := Text + '</ul>';
       finally
@@ -83 +83 @@
         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');
         for I := 0 to DbRows.Count - 1 do
-          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
-            DbRows[I].Values['Name'] + '</a></li>';
+          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
+            DbRows[I].Items['Name'] + '</a></li>';
         Text := Text + '</ul>';
       finally