paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 00:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

TSQLConnection.DoInternalDisconnect: safe with Assigned(FStatements) - like TDatabase.CloseDataSets etc.

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-10-16 11:43:23 +02:00
parent cd909ec2bc
commit 8bd9651abd
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1489,14 +1489,17 @@ Var
L : TList;
begin
L:=FStatements.LockList;
try
For I:=0 to L.Count-1 do
TCustomSQLStatement(L[i]).Unprepare;
L.Clear;
finally
FStatements.UnlockList;
end;
If Assigned(FStatements) then
begin
L:=FStatements.LockList;
try
For I:=0 to L.Count-1 do
TCustomSQLStatement(L[i]).Unprepare;
L.Clear;
finally
FStatements.UnlockList;
end;
end;
end;
procedure TSQLConnection.StartTransaction;