paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 05:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Michl to fix bug ID #32304

Browse Source 
git-svn-id: trunk@37000 -
This commit is contained in:
michael 2017-08-21 06:42:35 +00:00
parent 291cd08d72
commit 6513755e2e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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