paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Rollback on exception

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-13 13:48:28 +01:00
parent d298e33dfc
commit 763997cdf6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/sqldbrest/design/sqldbschemaedittools.pp
View File

@ -201,6 +201,7 @@ begin
Result.UniDirectional:=True;
Result.Open;
except
Result.Transaction.RollBack;
Result.Free;
Raise;
end;