Changeset 132 for trunk/Modules/News/UNews.pas
- Timestamp:
- Mar 18, 2022, 3:47:27 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/News/UNews.pas
r107 r132 6 6 7 7 uses 8 Classes, SysUtils, SpecializedList, USqlDatabase, UModuleUser, UUtils,9 U WebSession, UHTTPServer, UModuleBase;8 Classes, SysUtils, USqlDatabase, UModuleUser, UUtils, fgl, UWebSession, 9 UHTTPServer, UModuleBase, SpecializedList; 10 10 11 11 type … … 19 19 end; 20 20 21 TNewsSettingItems = class(TFPGObjectList<TNewsSettingItem>) 22 end; 23 21 24 { TNews } 22 25 … … 26 29 UploadedFilesFolder: string; // = 'aktuality/uploads/'; 27 30 public 28 Settings: T ListObject; // TListObject<TNewsSettingItem>31 Settings: TNewsSettingItems; 29 32 Database: TSqlDatabase; 30 33 ModuleUser: TModuleUser; … … 152 155 constructor TNews.Create; 153 156 begin 154 inherited Create;155 Settings := T ListObject.Create;157 inherited; 158 Settings := TNewsSettingItems.Create; 156 159 end; 157 160 … … 159 162 begin 160 163 FreeAndNil(Settings); 161 inherited Destroy;164 inherited; 162 165 end; 163 166
Note:
See TracChangeset
for help on using the changeset viewer.