paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sdfdataset: add support for dsBlockRead state

Browse Source 
git-svn-id: trunk@30736 -
This commit is contained in:
lacak 2015-04-27 10:28:45 +00:00
parent 3282ff0506
commit 8839850650
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/sdf/sdfdata.pp
View File

@ -563,12 +563,9 @@ end;
function TFixedFormatDataSet.GetActiveRecBuf(var RecBuf: TRecordBuffer): Boolean;
begin
case State of
dsBrowse: if IsEmpty then RecBuf := nil else RecBuf := ActiveBuffer;
dsEdit, dsInsert: RecBuf := ActiveBuffer;
dsCalcFields: RecBuf := CalcBuffer;
dsFilter: RecBuf := FFilterBuffer;
else
RecBuf := nil;
else if IsEmpty then RecBuf := nil else RecBuf := ActiveBuffer;
end;
Result := RecBuf <> nil;
end;