* Patch from Luiz Americo to allow reading data in blockread state

git-svn-id: trunk@28003 -

packages/fcl-db/src/memds/memds.pp

@@ -349,7 +349,8 @@ function TMemDataset.MDSGetActiveBuffer(out Buffer: TRecordBuffer): Boolean;
 
 begin
  case State of
-   dsBrowse:
+   dsBrowse,
+   dsBlockRead:
      if IsEmpty then
        Buffer:=nil
      else