Changeset 38 for trunk/USystem.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: SqlDatabase object initialized twice and freed once.

File:

• trunk/USystem.pas (modified) (1 diff)

trunk/USystem.pas

@@ -658 +658 @@
 destructor TChronisBase.Destroy;
 begin
-  Types.Free;
-  Modules.Free;
-  Client.Free;
+  FreeAndNil(Types);
+  FreeAndNil(Modules);
+  FreeAndNil(Client);
   inherited Destroy;
 end;