paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 03:49:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

- TSQLQuery now frees FIndexDefs

Browse Source
This commit is contained in:
joost 2005-04-13 22:10:26 +00:00
parent fcf91ea4fe
commit 10b6189ecf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/db/sqldb/sqldb.pp
View File

@ -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