Changeset 138 for trunk/Application/UWebSession.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/Application/UWebSession.pas (modified) (3 diffs)

trunk/Application/UWebSession.pas

@@ -6 +6 @@
   Classes, SysUtils, UHTTPServer, USqlDatabase, UHTTPSessionMySQL, UUser,
   UHtmlClasses, UWebPage, UUtils, UXmlClasses, DateUtils, UModularSystem,
-  UPageList, UWebApp, SpecializedList;
+  UPageList, UWebApp, UGenerics;
 
 type
@@ -86 +86 @@
   try
     BaseUrlParts := TListString.Create;
-    BaseUrlParts.Explode(BaseURL, '/', StrToStr);
+    BaseUrlParts.Explode('/', BaseURL);
     while (BaseUrlParts.Count > 0) and (Request.Path.Count > 0) and
       (BaseUrlParts[0] = Request.Path[0]) do begin
@@ -104 +104 @@
     except
       on E: Exception do begin
-        THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)).
-          Text := Format(SError, [E.Message]);
+        Self.HtmlDocument.Body.SubItems.AddString.Text := Format(SError, [E.Message]);
         GeneratePage(Page.Page);
       end;