JsonArraySetNumberElement Function

Action

Replaces the value of a specified element from a JSON array. If the array element does not exist in the JSON array, a new element with the specified value will be appended to the array. If the array element does not contain a number value, nothing happens.

Include file

Json.bdh

Syntax

JsonArraySetNumberElement( in handle : number,
                           in index  : number,
                           in value  : number ): boolean;

Parameter	Description
handle	Valid handle to a JSON array
index	The index position in the JSON array. Lower bound is zero (0).
value	The new value of the element

Return value

true if value successfully written to element
false otherwise

transaction TMain
var
  jsonText                             : string;
  jsonArray, i, newValue, currentValue : number;
begin
  WebParseDataBound(jsonText);
  WebPageUrl("http://mycompany.com/api/jsondata");
  jsonArray := JsonParse(jsonText);
  
  //every JSON array element is greater than or equal 10
  newValue := 10;
  for i := 0 to (JsonGetArrayLength(jsonArray) - 1) do
    JsonArrayGetNumberElement(jsonArray, i, currentValue);
    if currentValue < newValue then
      JsonArraySetNumberElement(jsonArray, i, newValue);
    end;
  end;
  
  /* add new value
   * index of the new value := size
   * size := size + 1 */
  JsonArraySetNumberElement(jsonArray, 999999, newValue);

  JsonFree(jsonArray);
end TMain;