JSONEnumerator Set_Value because why not

Author: stijnsanders

jsonDoc.pas

@@ -48,8 +48,9 @@ interface
     function Next: boolean; safecall;
     function Get_Key: WideString; safecall;
     function Get_Value: OleVariant; safecall;
+    procedure Set_Value(Value: OleVariant); safecall;
     property Key: WideString read Get_Key;
-    property Value: OleVariant read Get_Value;
+    property Value: OleVariant read Get_Value write Set_Value;
   end;
 
   IJSONEnumerable = interface(IUnknown)
@@ -94,6 +95,7 @@   TJSONEnumerator = class(TInterfacedObject, IJSONEnumerator)
     function Next: boolean; safecall;
     function Get_Key: WideString; safecall;
     function Get_Value: OleVariant; safecall;
+    procedure Set_Value(Value: OleVariant); safecall;
   end;
 
   EJSONException=class(Exception);
@@ -1076,4 +1078,12 @@ function TJSONEnumerator.Get_Value: OleVariant;
     Result:=FData.FElements[FIndex].Value;
 end;
 
+procedure TJSONEnumerator.Set_Value(Value: OleVariant);
+begin
+  if (FIndex<0) or (FIndex>=FData.FElementIndex) then
+    raise ERangeError.Create('Out of range')
+  else
+    FData.FElements[FIndex].Value:=Value;
+end;
+
 end.