Browse Source

* Merging revisions 43034 from trunk:
------------------------------------------------------------------------
r43034 | michael | 2019-09-19 09:35:38 +0200 (Thu, 19 Sep 2019) | 1 line

* Fix bug #36086 (Lookup causes AV if dataset is empty)
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43241 -

michael 5 years ago
parent
commit
fb9be3b79b
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-db/src/base/bufdataset.pas

+ 2 - 0
packages/fcl-db/src/base/bufdataset.pas

@@ -3848,6 +3848,8 @@ var
   bm:TBookmark;
 begin
   result:=Null;
+  if IsEmpty then
+    exit;
   bm:=GetBookmark;
   DisableControls;
   try