paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-02 12:30:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix position after Insert

Browse Source
This commit is contained in:
michael 2018-02-12 08:14:36 +00:00
parent 0dcbd253fa
commit 9e086a3de8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/jsondataset.pas
View File

@ -275,7 +275,8 @@ end;
function TDefaultJSONIndex.Insert(aCurrentIndex, aRecordIndex: Integer
): Integer;
begin
Result:=inherited Insert(aCurrentIndex, aRecordIndex);
FList.splice(aCurrentIndex, 0, aRecordIndex);
Result:=aCurrentIndex;
end;
function TDefaultJSONIndex.FindRecord(aRecordIndex: Integer): Integer;
@ -653,7 +654,7 @@ begin
end
else // insert
begin
FDefaultIndex.Insert(FCurrent,Idx);
FCurrent:=FDefaultIndex.Insert(FCurrent,Idx);
// Must replace this by updating all indexes.
// Note that this will change current index.
if (FCurrentIndex<>FDefaultIndex) then