Small fix for setting previously unset keys in the new Set_item method.

stijnsanders · May 23, 2012 · 7420806 · 7420806
1 parent 77b3f2f
commit 7420806
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bsonDoc.pas b/bsonDoc.pas
@@ -207,6 +207,7 @@ procedure TBSONDocument.Set_Item(const Key: WideString; Value: OleVariant);
     for i:=FElementIndex-1 downto FGotSorted do FSorted[i+1]:=FSorted[i];//Move?
     FSorted[FGotSorted]:=FElementIndex;
     FElements[FElementIndex].Key:=Key;
+    FGotIndex:=FElementIndex;
     inc(FElementIndex);
    end;
   FElements[FGotIndex].Value:=Value;