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;