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

* Activated Action for TSQLTransaction

Browse Source 
git-svn-id: trunk@24702 -
This commit is contained in:
michael 2013-06-01 10:55:30 +00:00
parent 6c51bcae37
commit 5042e1060f
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1111,7 +1111,17 @@ end;
procedure TSQLTransaction.EndTransaction; procedure TSQLTransaction.EndTransaction;
begin begin
rollback; Case Action of
caNone : ;
caCommit :
Commit;
caCommitRetaining :
CommitRetaining;
caRollback :
RollBack;
caRollbackRetaining :
RollbackRetaining;
end;
end; end;
procedure TSQLTransaction.SetParams(const AValue: TStringList); procedure TSQLTransaction.SetParams(const AValue: TStringList);
@ -1203,7 +1213,7 @@ end;
destructor TSQLTransaction.Destroy; destructor TSQLTransaction.Destroy;
begin begin
Rollback; EndTransaction;
FreeAndNil(FParams); FreeAndNil(FParams);
inherited Destroy; inherited Destroy;
end; end;