paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adds some checks to sqldb avoid AV and memleaks. Mantis #19326 and #18669

Browse Source 
git-svn-id: trunk@19039 -
This commit is contained in:
marco 2011-09-09 18:13:03 +00:00
parent a9515e9446
commit 367be2cd7a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -1200,11 +1200,11 @@ begin
try try
FieldDefs.Clear; FieldDefs.Clear;
if not Assigned(Database) then DatabaseError(SErrDatabasenAssigned);
TSQLConnection(Database).AddFieldDefs(fcursor,FieldDefs); TSQLConnection(Database).AddFieldDefs(fcursor,FieldDefs);
finally finally
FLoadingFieldDefs := False; FLoadingFieldDefs := False;
FCursor.FInitFieldDef := false; if Assigned(FCursor) then FCursor.FInitFieldDef := false;
end; end;
end; end;