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

trunk/Modules/ZdechovNET/UProjectsPage.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
       try
         DbRows := TDbRows.Create;
@@ -47 +47 @@
         Database.Query(DbRows, 'SELECT * FROM `Plans` ORDER BY `TimeCreate` DESC');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + '<tr><td>' + DbRows[I].Values['TimeCreate'] + '</td>' +
-            '<td>' + DbRows[I].Values['TimeFinished'] + '</td>' +
-            '<td>' + DbRows[I].Values['Description'] + '</td>' +
-            '<td>' + DbRows[I].Values['Public'] + '</td></tr>';
+          Text := Text + '<tr><td>' + DbRows[I].Items['TimeCreate'] + '</td>' +
+            '<td>' + DbRows[I].Items['TimeFinished'] + '</td>' +
+            '<td>' + DbRows[I].Items['Description'] + '</td>' +
+            '<td>' + DbRows[I].Items['Public'] + '</td></tr>';
         end;
         Text := Text + '</table>';