Qjson中把json字符串,当做子节点的方法

我一直都在寻找各种业务功能的最简单写法,用减法的模式来开发软件。如果有比我的写法更简单的方法,请留言告知。

procedure TForm4.btn2Click(Sender: TObject);
const
  //外部的一个Json做子节点
  AJsonStr = '{"name":"奥巴马","age":18}';
var
  MyQj: TQJson;
begin
  MyQj := TQJson.Create;
  try
    MyQj.Add('country', '美国');
    MyQj.Add('address', '华盛顿');


    //美国有很多人,奥巴马是其中一员,而奥巴马的信息可能来自一个Json字符串,
    //我们需要把这个Json字符串当做一个子节点插入进来.
    with MyQj.AddArray('person') do
    begin
      Add.AsObject := AJsonStr;
    end;


    Memo1.Lines.Clear;
    Memo1.Lines.Add(MyQj.AsJson);
  finally
    MyQj.Free;
  end;
end;

 

分享到: