瀏覽代碼

* Fix for 37993, attempt to prevent memory leak in case of database shutdown

git-svn-id: trunk@47216 -
michael 4 年之前
父節點
當前提交
6d5816085d
共有 1 個文件被更改,包括 6 次插入3 次删除
  1. 6 3
      packages/fcl-db/src/sqldb/sqldb.pp

+ 6 - 3
packages/fcl-db/src/sqldb/sqldb.pp

@@ -1373,9 +1373,12 @@ end;
 
 destructor TSQLConnection.Destroy;
 begin
-  Connected:=False; // needed because we want to de-allocate statements
-  FreeAndNil(FStatements);
-  inherited Destroy;
+  try
+    Connected:=False; // needed because we want to de-allocate statements
+  Finally  
+    FreeAndNil(FStatements);
+    inherited Destroy;
+  end;
 end;
 
 function TSQLConnection.StrToStatementType(s : string) : TStatementType;