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

* Fix AV in case there is no changelist (local dataset)

Browse Source
This commit is contained in:
michael 2018-02-10 20:49:48 +00:00
parent 8c3c8022c9
commit 53c1915185
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/db.pas
View File

@ -3973,7 +3973,8 @@ begin
R:=AddToChangeList(usDeleted); R:=AddToChangeList(usDeleted);
If Not TryDoing(@InternalDelete,OnDeleteError) then If Not TryDoing(@InternalDelete,OnDeleteError) then
begin begin
RemoveFromChangeList(R); if Assigned(R) then
RemoveFromChangeList(R);
exit; exit;
end; end;
{$ifdef dsdebug} {$ifdef dsdebug}
@ -4533,7 +4534,8 @@ begin
Resync([]); Resync([]);
// We get the new values here, since the bookmark should now be correct to find the record later on when doing applyupdates. // We get the new values here, since the bookmark should now be correct to find the record later on when doing applyupdates.
R:=AddToChangeList(UpdateStates[wasInsert]); R:=AddToChangeList(UpdateStates[wasInsert]);
R.FBookmark:=BookMark; if Assigned(R) then
R.FBookmark:=BookMark;
{$ifdef dsdebug} {$ifdef dsdebug}
writeln ('Post: Browse mode set'); writeln ('Post: Browse mode set');
{$endif} {$endif}