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

TDataset: fixed daAbort TDataAction behavior (was not aborting). Fixed TDataset.Delete calling OnDeleteError instead of OnPostError.

Browse Source 
git-svn-id: trunk@23111 -
This commit is contained in:
ludob 2012-12-04 10:00:43 +00:00
parent 8e5bd14e3a
commit b36aa216e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/dataset.inc
View File

@ -1543,7 +1543,7 @@ begin
{$endif}
DoBeforeDelete;
DoBeforeScroll;
If Not TryDoing(@InternalDelete,OnPostError) then exit;
If Not TryDoing(@InternalDelete,OnDeleteError) then exit;
{$ifdef dsdebug}
writeln ('Delete: Internaldelete succeeded');
{$endif}
@ -2197,7 +2197,7 @@ begin
Ev(Self,E,Retry);
Case Retry of
daFail : Raise;
daAbort : Result:=False;
daAbort : Abort;
end;
end;
else