Changeset 138 for trunk/Modules/ZdechovNET/UContactPage.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/UContactPage.pas (modified) (1 diff)

trunk/Modules/ZdechovNET/UContactPage.pas

@@ -31 +31 @@
 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
     ModuleUser.LoadUserInfo;
     Text := '<strong>Kontaktní informace</strong><br/>' +