paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 15:09:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Because of some logic-error, only deletes were handled by ApplyUpdates

Browse Source 
git-svn-id: trunk@12266 -
This commit is contained in:
joost 2008-11-29 10:45:37 +00:00
parent b0cf2a2dc6
commit af7b064157
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1841,7 +1841,7 @@ begin
while (r < Length(FUpdateBuffer)) and (Response <> rrAbort) do while (r < Length(FUpdateBuffer)) and (Response <> rrAbort) do
begin begin
// If the record is first inserted and afterwards deleted, do nothing // If the record is first inserted and afterwards deleted, do nothing
if (FUpdateBuffer[r].UpdateKind=ukDelete) and (assigned(FUpdateBuffer[r].OldValuesBuffer)) then if not (FUpdateBuffer[r].UpdateKind=ukDelete) and not (assigned(FUpdateBuffer[r].OldValuesBuffer)) then
begin begin
FCurrentIndex.GotoBookmark(@FUpdateBuffer[r].BookmarkData); FCurrentIndex.GotoBookmark(@FUpdateBuffer[r].BookmarkData);
// Joost: I do not see the use of this resync? // Joost: I do not see the use of this resync?