JsonArraySetBooleanElement 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 boolean value, nothing happens.

Include file

Json.bdh

Syntax

JsonArraySetBooleanElement( in handle : number,
                            in index  : number,
                            in value  : boolean ): 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

Example

transaction TMain
var
  jsonText               : string;
  jsonArray, i           : number;
  newValue, currentValue : boolean;
begin
  WebParseDataBound(jsonText);
  WebPageUrl("http://mycompany.com/api/jsondata");
  jsonArray := JsonParse(jsonText);
  
  //set every JSON array element to true
  newValue := true;
  for i := 0 to (JsonGetArrayLength(jsonArray) - 1) do
    JsonArrayGetBooleanElement(jsonArray, i, currentValue);
    if not currentValue then
      JsonArraySetBooleanElement(jsonArray, i, newValue);
    end;
  end;
  
  /* add new value
   * index of the new value := size
   * size := size + 1 */
  JsonArraySetBooleanElement(jsonArray, 999999, newValue);

  JsonFree(jsonArray);
end TMain;