How to cycle through JSON with multiple records in Delphi

by

When receiving JSON such as the example below, how do I cycle through to extract each field value of each “record”, so I can insert them into a database?

{
  "Accounts": [{
    "AccountID": "ebd06280-af70-4bed-97c6-7451a454ad85",
    "Code": "091",
    "Name": "Business Savings Account",
    "Type": "BANK",
    "TaxType": "NONE",
    "EnablePaymentsToAccount": false,
    "BankAccountNumber": "0209087654321050",
    "BankAccountType": "BANK",
    "CurrencyCode": "NZD"
  },{
    "AccountID": "7d05a53d-613d-4eb2-a2fc-dcb6adb80b80",
    "Code": "200",
    "Name": "Sales",
    "Type": "REVENUE",
    "TaxType": "OUTPUT2",
    "Description": "Income from any normal business activity",
    "EnablePaymentsToAccount": false
  }]
}

  • What JSON library are you using to process the JSON? What have you attempted so far to iterate the records that is not working for you? The JSON consists of 1 object whose Accounts field is an array of objects. Any JSON library will easily let you access that array and iterate it. But the syntax to do so is going to differ between libraries.

    – 




Leave a Comment