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

trunk/Modules/ZdechovNET/UHistoryPage.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 := '<table>';
       try
@@ -46 +46 @@
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
-            HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
-            DbRows[I].Values['Text'] + '</td></tr>';
+            HumanDate(SQLToDateTime(DbRows[I].Items['Date'])) + '&nbsp;- </td><td>' +
+            DbRows[I].Items['Text'] + '</td></tr>';
         end;
       finally