Ignore:
Timestamp:
Mar 18, 2022, 3:47:27 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/News/UNews.pas

    r107 r132  
    66
    77uses
    8   Classes, SysUtils, SpecializedList, USqlDatabase, UModuleUser, UUtils,
    9   UWebSession, UHTTPServer, UModuleBase;
     8  Classes, SysUtils, USqlDatabase, UModuleUser, UUtils, fgl, UWebSession,
     9  UHTTPServer, UModuleBase, SpecializedList;
    1010
    1111type
     
    1919  end;
    2020
     21  TNewsSettingItems = class(TFPGObjectList<TNewsSettingItem>)
     22  end;
     23
    2124  { TNews }
    2225
     
    2629    UploadedFilesFolder: string; // = 'aktuality/uploads/';
    2730  public
    28     Settings: TListObject; // TListObject<TNewsSettingItem>
     31    Settings: TNewsSettingItems;
    2932    Database: TSqlDatabase;
    3033    ModuleUser: TModuleUser;
     
    152155constructor TNews.Create;
    153156begin
    154   inherited Create;
    155   Settings := TListObject.Create;
     157  inherited;
     158  Settings := TNewsSettingItems.Create;
    156159end;
    157160
     
    159162begin
    160163  FreeAndNil(Settings);
    161   inherited Destroy;
     164  inherited;
    162165end;
    163166
Note: See TracChangeset for help on using the changeset viewer.