Browse Source

* Correctly initialize AddToChangeList to Nil

michael 7 years ago
parent
commit
66ceb76a2c
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-db/db.pas

+ 1 - 0
packages/fcl-db/db.pas

@@ -2797,6 +2797,7 @@ Var
   I : Integer;
   I : Integer;
 
 
 begin
 begin
+  Result:=Nil;
   if Not Assigned(FChangeList) then
   if Not Assigned(FChangeList) then
     Exit;
     Exit;
   B:=GetBookmark;
   B:=GetBookmark;