paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 07:50:58 +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} {$endif}
DoBeforeDelete; DoBeforeDelete;
DoBeforeScroll; DoBeforeScroll;
If Not TryDoing(@InternalDelete,OnPostError) then exit; If Not TryDoing(@InternalDelete,OnDeleteError) then exit;
{$ifdef dsdebug} {$ifdef dsdebug}
writeln ('Delete: Internaldelete succeeded'); writeln ('Delete: Internaldelete succeeded');
{$endif} {$endif}
@ -2197,7 +2197,7 @@ begin
Ev(Self,E,Retry); Ev(Self,E,Retry);
Case Retry of Case Retry of
daFail : Raise; daFail : Raise;
daAbort : Result:=False; daAbort : Abort;
end; end;
end; end;
else else