Changeset 138 for trunk/Packages/CoolWeb/Modules/UPageList.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/Packages/CoolWeb/Modules/UPageList.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/Modules/UPageList.pas

@@ -7 +7 @@
 
 type
+
+  { TPageList }
+
   TPageList = class
     TotalCount: Integer;
@@ -19 +22 @@
     Around: Integer;
     constructor Create;
+    destructor Destroy; override;
     function Hyperlink: string;
     function Process: string;
@@ -33 +37 @@
   QueryItems.SetStringServer;
   HTMLId := '';
+end;
+
+destructor TPageList.Destroy;
+begin
+  FreeAndNil(QueryItems);
+  inherited;
 end;