paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TBufDataset.Locate: Set the FilterBuffer when entering the dsFilter state

Browse Source 
git-svn-id: trunk@12226 -
This commit is contained in:
joost 2008-11-25 12:29:33 +00:00
parent ff119421dd
commit ae32715890
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2805,6 +2805,7 @@ begin
// Set The filter-buffer // Set The filter-buffer
StoreDSState:=State; StoreDSState:=State;
FFilterBuffer:=FCurrentIndex.SpareBuffer;
SetTempState(dsFilter); SetTempState(dsFilter);
SetFieldValues(keyfields,KeyValues); SetFieldValues(keyfields,KeyValues);
CurrLinkItem := (FCurrentIndex as TDoubleLinkedBufIndex).FFirstRecBuf; CurrLinkItem := (FCurrentIndex as TDoubleLinkedBufIndex).FFirstRecBuf;