Permalink
Browse files

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

  • Loading branch information...
1 parent 77b3f2f commit 74208069584b10612e5ae38b7ace37a178d2eb53 @compiled compiled committed May 23, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 bsonDoc.pas
View
1 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;

0 comments on commit 7420806

Please sign in to comment.