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

git-svn-id: trunk@19039 -

packages/fcl-db/src/sqldb/sqldb.pp

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