Changeset 38 for trunk/UCore.pas

Timestamp:

Mar 8, 2012, 3:40:45 PM (12 years ago)

Author:

chronos

Message:

• Fixed: SqlDatabase object initialized twice and freed once.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
     CoolTranslator1: TCoolTranslator;
     DebugLog1: TDebugLog;
-    SqlDatabase1: TSqlDatabase;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -56 +55 @@
   System := TChronisBase.Create;
   System.Client := TChronisClientMySQL.Create;
-  TChronisClientMySQL(System.Client).Database := SqlDatabase1;
+  //TChronisClientMySQL(System.Client).Database := SqlDatabase1;
   System.RegisterModule(TModuleSystem);
   System.ModuleSystem := TModuleSystem(System.Modules.Last);
@@ -68 +67 @@
 begin
   SaveToRegistry;
-  System.Free;
-  Profiles.Free;
+  FreeAndNil(System);
+  FreeAndNil(Profiles);
 end;