; JsonObjectKey Example
; ---------------------
; Requires Extended mode.

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

; A loaded save-game record - objects preserve insertion order
save=ParseJson("{"+q+"player"+q+":"+q+"Aria"+q+","+q+"level"+q+":7,"+q+"gold"+q+":1250}")
Print "Save-game: "+JsonStringify(save,0)
Print ""

; JsonObjectKey returns the key at each insertion-order index,
; which lets you walk an object without knowing its keys upfront
Print "Fields in insertion order:"
For i=0 To JsonCount(save)-1
    Print "  index "+i+": "+JsonObjectKey(save,i)
Next

FreeJson save

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

End