paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 21:47:47 +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);
If Not TryDoing(@InternalDelete,OnDeleteError) then
begin
RemoveFromChangeList(R);
if Assigned(R) then
RemoveFromChangeList(R);
exit;
end;
{$ifdef dsdebug}
@ -4533,7 +4534,8 @@ begin
Resync([]);
// 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.FBookmark:=BookMark;
if Assigned(R) then
R.FBookmark:=BookMark;
{$ifdef dsdebug}
writeln ('Post: Browse mode set');
{$endif}