From 9e086a3de80fd3b2bf3a316d834c2ad06869b19b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 12 Feb 2018 08:14:36 +0000
Subject: [PATCH] * Fix position after Insert

---
 packages/fcl-db/jsondataset.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-db/jsondataset.pas b/packages/fcl-db/jsondataset.pas
index f3344a2..51cdcb3 100644
--- a/packages/fcl-db/jsondataset.pas
+++ b/packages/fcl-db/jsondataset.pas
@@ -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