Browse Source

- TSQLQuery now frees FIndexDefs

joost 20 years ago
parent
commit
10b6189ecf
1 changed files with 5 additions and 1 deletions
  1. 5 1
      fcl/db/sqldb/sqldb.pp

+ 5 - 1
fcl/db/sqldb/sqldb.pp

@@ -783,6 +783,7 @@ begin
   if Active then Close;
   if Active then Close;
   UnPrepare;
   UnPrepare;
   FreeAndNil(FSQL);
   FreeAndNil(FSQL);
+  FreeAndNil(FIndexDefs);
   inherited Destroy;
   inherited Destroy;
 end;
 end;
 
 
@@ -972,7 +973,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.16  2005-04-10 18:29:26  joost
+  Revision 1.17  2005-04-13 22:10:26  joost
+  - TSQLQuery now frees FIndexDefs
+
+  Revision 1.16  2005/04/10 18:29:26  joost
   - implemented parameter support for sqldb
   - implemented parameter support for sqldb
   - Added TSQLConnection.ConnOptions
   - Added TSQLConnection.ConnOptions
   - renamed TSQLQuery.FreeStatement to TSQLQuery.CloseStatement
   - renamed TSQLQuery.FreeStatement to TSQLQuery.CloseStatement