JsonDataObjects 简单实用

Posted Li Essay

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了JsonDataObjects 简单实用相关的知识,希望对你有一定的参考价值。

下载地址https://github.com/ahausladen/JsonDataObjects

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"
        }
    ]
}

 

以上是关于JsonDataObjects 简单实用的主要内容,如果未能解决你的问题,请参考以下文章

jsondataobjects

Android 实用代码片段

Android 实用代码片段

JsonDataObjects基本演示

30 段 Python 实用代码

asp.net页面实用代码片段