JsonDataObjects

{
  "name": "张三", 
  "age": 33,
  "sex": true,
  "weight": 123.456,
  "tel": ["86-1111111", "86-2222222"],
  "addresses":{"address":"A省B市", 
"pc":"100001"},
  "children": [
    {
      "name": "张继",
      "age": "22",
      "sex": true
    },
    {
      "name": "张承",
      "age": "11",
      "sex": false
    }
  ]
}

 

 

uses JsonDataObjects;

procedure TForm1.Button1Click(Sender: TObject);
var
    jo: TJsonObject;
    i: Integer;
begin
    jo := TJsonObject.Parse( Memo1.Text) as TJsonObject;

    Memo2.Lines.Add(jo['name']);
    Memo2.Lines.Add(jo['age']);
    Memo2.Lines.Add(jo['sex']);
    Memo2.Lines.Add(jo['weight']);
    Memo2.Lines.Add(jo['tel'].Items[0]);
    Memo2.Lines.Add(jo['tel'].Items[1]);
    Memo2.Lines.Add(jo['addresses'].S['address']);
    Memo2.Lines.Add(jo['addresses'].S['pc']);
    Memo2.Lines.Add('总共数据数:' + inttostr(jo['children'].Count));
    for i := 0 to jo['children'].Count - 1 do
    begin
        Memo2.Lines.Add(jo['children'].Items[i]['name']);
        Memo2.Lines.Add(jo['children'].Items[i]['age']);
        Memo2.Lines.Add(jo['children'].Items[i]['sex']);
    end;
    jo.Free;

----------------------------------------------------------------------------------

Simple example

var
  Obj: TJsonObject;
begin
  Obj := TJsonObject.Parse('{ "foo": "bar", "array": [ 10, 20 ] }') as TJsonObject;
  try
    ShowMessage(Obj['foo']);
    ShowMessage(IntToStr(Obj['array'].Count));
    ShowMessage(IntToStr(Obj['array'].Items[0]));
    ShowMessage(IntToStr(Obj['array'].Items[1]));
  finally
    Obj.Free;
  end;
end;

Filling and serializing JSON objects

var
  Obj, ChildObj: TJsonObject;
begin
  Obj := TJsonObject.Create;
  try
    // easy access
    Obj['foo'] := 'bar';
    // normal (and faster) access
    Obj.S['bar'] := 'foo';
    // automatic array creation, Obj is the owner of 'array'
    Obj.A['array'].Add(10);
    Obj.A['array'].Add(20);
    // automatic object creation, 'array' is the owner of ChildObj
    ChildObj := Obj.A['array'].AddObject;
    ChildObj['value'] := 12.3;
    // automatic array creation, ChildObj is the owner of 'subarray'
    ChildObj.A['subarray'].Add(100);
    ChildObj.A['subarray'].Add(200);

    ShowMessage(Obj.ToJSON({Compact:=}False));
  finally
    Obj.Free;
  end;

{
	"foo": "bar",
	"bar": "foo",
	"array": [
		10,
		20,
		{
			"value": 12.3,
			"subarray": [
				100,
				200
			]
		}
	]
}

Copying JSON objects with Assign

var
  Obj, ClonedObj: TJsonObject;
begin
  Obj := TJsonObject.ParseUtf8('{ "foo": [ "bar", {}, null, true, false, { "key": "value" } ] }') as TJsonObject;
  try
    ClonedObj := TJsonObject.Create;
    try
      // Make a copy of Obj
      ClonedObj.Assign(Obj);
      ShowMessage(ClonedObj.ToJSON(False));
    finally
      ClonedObj.Free;
    end;
  finally
    Obj.Free;
  end;
end;

{
	"foo": [
		"bar",
		{},
		null,
		true,
		false,
		{
			"key": "value"
		}
	]
}