Changeset 138 for trunk/Modules/ZdechovNET/UAboutPage.pas

Timestamp:

Sep 9, 2022, 8:20:25 PM (22 months ago)

Author:

chronos

Message:

• Modified: Removed TemplateGenerics package. Generics usage replaced by standard Generics.Collections.

File:

• trunk/Modules/ZdechovNET/UAboutPage.pas (modified) (3 diffs)

trunk/Modules/ZdechovNET/UAboutPage.pas

@@ -12 +12 @@
   TAboutPage = class(TWebPage)
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
-  private
-    { private declarations }
   public
     ModuleUser: TModuleUser;
@@ -39 +37 @@
   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><tr><td style="vertical-align: top;">' +
         '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
@@ -88 +86 @@
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<div>' +
-            '<strong>' + DbRows[I].Values['Title'] + '</strong> ' +
-            '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + ')</strong>' +
+            '<strong>' + DbRows[I].Items['Title'] + '</strong> ' +
+            '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Items['Time'])) + ')</strong>' +
             '<br/>' +
-            DbRows[I].Values['Text'] + '</div></br>';
+            DbRows[I].Items['Text'] + '</div></br>';
         end;
       finally