; JsonObjectRemove Example
; ------------------------
; Requires Extended mode.

q$=Chr(34)  ; Double-quote character, for building JSON text

; A save-game with a debug field left over from testing
save=ParseJson("{"+q+"player"+q+":"+q+"Aria"+q+","+q+"cheats"+q+":true,"+q+"gold"+q+":1250}")
Print "Before: "+JsonStringify(save,0)
Print ""

; JsonObjectRemove deletes a property and reports whether it existed
existed=JsonObjectRemove(save,"cheats")
Print "Remove 'cheats' - existed = "+existed

; Removing it again finds nothing and returns false
existed=JsonObjectRemove(save,"cheats")
Print "Remove again    - existed = "+existed
Print ""

Print "After:  "+JsonStringify(save,0)

FreeJson save

Print ""
Print "Press any key to close the example"
WaitKey

End