; JsonObjectClear Example
; -----------------------
; Requires Extended mode.

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

; The player chose "New Game" - wipe the old save-game record
save=ParseJson("{"+q+"player"+q+":"+q+"Aria"+q+","+q+"level"+q+":7,"+q+"gold"+q+":1250}")

Print "Old save:  "+JsonStringify(save,0)
Print "Field count: "+JsonCount(save)
Print ""

; JsonObjectClear removes every property but keeps the object itself
JsonObjectClear save

Print "After clear: "+JsonStringify(save,0)
Print "Field count: "+JsonCount(save)
Print ""

; The same handle is ready for a fresh adventure
v=CreateJsonString("Brom")
JsonObjectSet save,"player",v
FreeJson v
Print "New game:  "+JsonStringify(save,0)

FreeJson save

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

End