Delphi DLL

Find and Delete Object from JSON Array

See more JSON Examples

Demonstrates how to find an delete an object from a JSON array of objects. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonArray, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
json: HCkJsonObject;
menu: HCkJsonObject;
catArr: HCkJsonArray;
index: Integer;

begin
success := False;

// This example will delete the "Pasta" category object from Menu B.

// {
//   "menus": [
//     {
//       "name": "Menu A",
//       "categories": [
// 			{
// 			"name": "Kebabs",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Burgers",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Pasta",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Appetizers",
// 			"description": "blah blah blah"
// 			}
// 		]
// 	},
//     {
//       "name": "Menu B",
//       "categories": [
// 			{
// 			"name": "Kebabs",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Burgers",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Pasta",
// 			"description": "blah blah blah"
// 			},
// 			{
// 			"name": "Appetizers",
// 			"description": "blah blah blah"
// 			}
// 		]
// 	  }
// 	]
// }

json := CkJsonObject_Create();
success := CkJsonObject_LoadFile(json,'qa_data/json/menus.json');
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(json));
    Exit;
  end;

// Find Menu B.
menu := CkJsonObject_FindRecord(json,'menus','name','Menu B',True);
// assume menu is found..

// Get the categories array, and then find the index of the "Pasta" menu category.
catArr := CkJsonObject_ArrayOf(menu,'categories');
// Assume it is found..

// Find the object where the name of the JSON member is "name", and the value is "Pasta"
index := CkJsonArray_FindObject(catArr,'name','Pasta',True);
if (index < 0) then
  begin
    Memo1.Lines.Add('Pasta not found.');
  end
else
  begin

    // Delete the "Pasta" category record from Menu B
    success := CkJsonArray_DeleteAt(catArr,index);
    // Assume OK..
  end;

// Examine the JSON to see if it worked as expected..
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

CkJsonArray_Dispose(catArr);
CkJsonObject_Dispose(menu);

CkJsonObject_Dispose(json);

end;