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.
Json.bdh
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 |
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;