Lianja

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Lianja

llSuccess = .F.

loArr = createobject("CkJsonArray")

loObj = createobject("CkJsonObject")

// Create a new and empty JSON object in the 1st position of the JSON array 
// and return the reference in the last argument.
loArr.AddObjectAt2(0,loObj)
loObj.UpdateString("Name","Otto")
loObj.UpdateInt("Age",29)
loObj.UpdateBool("Married",.F.)

// Create a new and empty JSON object in the 2nd position of the JSON array 
// and return the reference in the last argument.
loArr.AddObjectAt2(1,loObj)
loObj.UpdateString("Name","Connor")
loObj.UpdateInt("Age",43)
loObj.UpdateBool("Married",.T.)

// Create a new and empty JSON object in the 3rd position of the JSON array 
// and return the reference in the last argument.
loArr.AddObjectAt2(2,loObj)
loObj.UpdateString("Name","Ramona")
loObj.UpdateInt("Age",34)
loObj.UpdateBool("Married",.T.)

// Examine what we have:
loArr.EmitCompact = .F.
? loArr.Emit()

// The output is:

// [
//   {
//     "Name": "Otto",
//     "Age": 29,
//     "Married": false
//   },
//   {
//     "Name": "Connor",
//     "Age": 43,
//     "Married": true
//   },
//   {
//     "Name": "Ramona",
//     "Age": 34,
//     "Married": true
//   }
// ]


release loArr
release loObj