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

Timestamp:

Sep 9, 2022, 8:20:25 PM (2 years ago)

Author:

chronos

Message:

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

File:

• trunk/Modules/ZdechovNET/URobotsPage.pas (modified) (1 diff)

trunk/Modules/ZdechovNET/URobotsPage.pas

@@ -37 +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 := 'User-agent: *' + LineEnding +
         'Disallow: /*?';