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

fcl-db: bufdataset: rename local variable (to avoid confusion between FFilterBufer and FilterBuffer and Buffer vs. Record)

Browse Source 
git-svn-id: trunk@23599 -
This commit is contained in:
lacak 2013-02-12 12:30:04 +00:00
parent 81f15610d6
commit b12fad63d4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3098,7 +3098,7 @@ var CurrLinkItem : PBufRecLinkItem;
SearchFields : TList;
DBCompareStruct : TDBCompareStruct;
StoreDSState : TDataSetState;
FilterBuffer : TRecordBuffer;
FilterRecord : TRecordBuffer;
FiltAcceptable : boolean;
begin
@ -3121,14 +3121,14 @@ begin
StoreDSState:=SetTempState(dsFilter);
FFilterBuffer:=FCurrentIndex.SpareBuffer;
SetFieldValues(KeyFields,KeyValues);
FilterBuffer:=IntAllocRecordBuffer;
move(FCurrentIndex.SpareRecord^, FilterBuffer^, FRecordSize+BufferOffset);
FilterRecord:=IntAllocRecordBuffer;
move(FCurrentIndex.SpareRecord^, FilterRecord^, FRecordSize+BufferOffset);
// Iterate through the records until a match is found
CurrLinkItem := (FCurrentIndex as TDoubleLinkedBufIndex).FFirstRecBuf;
while (CurrLinkItem <> (FCurrentIndex as TDoubleLinkedBufIndex).FLastRecBuf) do
begin
if (IndexCompareRecords(FilterBuffer,CurrLinkItem,DBCompareStruct) = 0) then
if (IndexCompareRecords(FilterRecord,CurrLinkItem,DBCompareStruct) = 0) then
begin
if Filtered then
begin
@ -3153,7 +3153,7 @@ begin
end;
RestoreState(StoreDSState);
FreeRecordBuffer(FilterBuffer);
FreeRecordBuffer(FilterRecord);
// If a match is found, jump to the found record
if Result then