Changeset 101 for trunk/UCore.pas

Timestamp:

Oct 2, 2012, 3:35:24 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Základní kostra modulů Finance a Network.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -86 +86 @@
 
 uses
-  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV;
+  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV,
+  UModuleFinance, UModuleNetwork;
 
 resourcestring
@@ -108 +109 @@
 destructor TWebSession.Destroy;
 begin
-  HtmlDocument.Free;
-  User.Free;
-  UserOnline.Free;
-  SessionStorage.Free;
-  Database.Free;
+  FreeAndNil(HtmlDocument);
+  FreeAndNil(User);
+  FreeAndNil(UserOnline);
+  FreeAndNil(SessionStorage);
+  FreeAndNil(Database);
   inherited;
 end;
@@ -279 +280 @@
     RegisterModule(TModuleZdechovNET.Create(nil), True);
     RegisterModule(TModuleTV.Create(nil), True);
+    RegisterModule(TModuleFinance.Create(nil), True);
+    RegisterModule(TModuleNetwork.Create(nil), True);
   end;
 end;