Changeset 132 for trunk/Modules/News/UNews.pas

Timestamp:

Mar 18, 2022, 3:47:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Modules/News/UNews.pas (modified) (5 diffs)

trunk/Modules/News/UNews.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SpecializedList, USqlDatabase, UModuleUser, UUtils,
-  UWebSession, UHTTPServer, UModuleBase;
+  Classes, SysUtils, USqlDatabase, UModuleUser, UUtils, fgl, UWebSession,
+  UHTTPServer, UModuleBase, SpecializedList;
 
 type
@@ -19 +19 @@
   end;
 
+  TNewsSettingItems = class(TFPGObjectList<TNewsSettingItem>)
+  end;
+
   { TNews }
 
@@ -26 +29 @@
     UploadedFilesFolder: string; // = 'aktuality/uploads/';
   public
-    Settings: TListObject; // TListObject<TNewsSettingItem>
+    Settings: TNewsSettingItems;
     Database: TSqlDatabase;
     ModuleUser: TModuleUser;
@@ -152 +155 @@
 constructor TNews.Create;
 begin
-  inherited Create;
-  Settings := TListObject.Create;
+  inherited;
+  Settings := TNewsSettingItems.Create;
 end;
 
@@ -159 +162 @@
 begin
   FreeAndNil(Settings);
-  inherited Destroy;
+  inherited;
 end;