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

* Adapted IntLoadRecordsFromFile for the new NextBookmarkData field in the update-buffer

Browse Source 
git-svn-id: trunk@12367 -
This commit is contained in:
joost 2008-12-15 11:46:32 +00:00
parent 6617fdf305
commit 186c6b6b4f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2492,6 +2492,9 @@ begin
FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind:= ukDelete; FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind:= ukDelete;
FIndexes[0].StoreSpareRecIntoBookmark(@FUpdateBuffer[FCurrentUpdateBuffer].BookmarkData); FIndexes[0].StoreSpareRecIntoBookmark(@FUpdateBuffer[FCurrentUpdateBuffer].BookmarkData);
FIndexes[0].AddRecord(IntAllocRecordBuffer);
FIndexes[0].RemoveRecordFromIndex(FUpdateBuffer[FCurrentUpdateBuffer].BookmarkData);
FIndexes[0].StoreSpareRecIntoBookmark(@FUpdateBuffer[FCurrentUpdateBuffer].NextBookmarkData);
AddRecordBuffer:=False; AddRecordBuffer:=False;
end end