Browse Source

* Fix from Michl to fix bug ID #32304

git-svn-id: trunk@37000 -
michael 8 năm trước cách đây
mục cha
commit
6513755e2e
1 tập tin đã thay đổi với 3 bổ sung1 xóa
  1. 3 1
      packages/fcl-db/src/sqldb/interbase/fbadmin.pp

+ 3 - 1
packages/fcl-db/src/sqldb/interbase/fbadmin.pp

@@ -393,8 +393,10 @@ end;
 destructor TFBAdmin.Destroy;
 begin
   if FSvcHandle<>FB_API_NULLHANDLE then
-  WaitInterval:=100;
+  begin
+    WaitInterval:=100;
     DisConnect;
+  end;
   FOutput.Destroy;
   inherited Destroy;
 end;