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

* Improved error-handling in TBufDataset.ApplyUpdates

Browse Source 
git-svn-id: trunk@6353 -
This commit is contained in:
joost 2007-02-07 11:10:36 +00:00
parent 125136d069
commit 99b15e95a1
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/db/bufdataset.pp
View File

@ -746,6 +746,7 @@ var r : Integer;
FailedCount : integer;
Response : TResolverResponse;
StoreRecBuf : PBufRecLinkItem;
AUpdateErr : EUpdateError;
begin
CheckBrowseMode;
@ -771,13 +772,21 @@ begin
Inc(FailedCount);
if failedcount > word(MaxErrors) then Response := rrAbort
else Response := rrSkip;
if assigned(FOnUpdateError) then FOnUpdateError(Self,Self,EUpdateError.Create(SOnUpdateError,E.Message,0,0,E),FUpdateBuffer[r].UpdateKind,Response)
else if Response = rrAbort then Raise EUpdateError.Create(SOnUpdateError,E.Message,0,0,E)
if assigned(FOnUpdateError) then
begin
AUpdateErr := EUpdateError.Create(SOnUpdateError,E.Message,0,0,Exception(AcquireExceptionObject));
FOnUpdateError(Self,Self,AUpdateErr,FUpdateBuffer[r].UpdateKind,Response);
AUpdateErr.Free;
if Response in [rrApply, rrIgnore] then dec(FailedCount);
if Response = rrApply then dec(r);
end
else if Response = rrAbort then
Raise EUpdateError.Create(SOnUpdateError,E.Message,0,0,Exception(AcquireExceptionObject));
end
else
raise;
end;
if response = rrApply then
if response in [rrApply, rrIgnore] then
begin
FreeRecordBuffer(FUpdateBuffer[r].OldValuesBuffer);
FUpdateBuffer[r].BookmarkData := nil;