用Delphi xe写一段输出一对多表的json

以下是使用 Delphi xe 编写输出一对多表的 JSON 的代码示例：

uses
  Data.DBXJSON, Data.DBXJSONReflect;

procedure TForm1.Button1Click(Sender: TObject);
var
  JSONValue: TJSONValue;
  JSONArray: TJSONArray;
  JSONObject: TJSONObject;
  ChildJSONArray: TJSONArray;
  ChildJSONObject: TJSONObject;
begin
  // 创建主 JSON 对象
  JSONObject := TJSONObject.Create;
  try
    // 创建主 JSON 数组
    JSONArray := TJSONArray.Create;
    try
      // 循环遍历一对多表的主表数据
      while not MasterDataSet.Eof do
      begin
        // 创建主 JSON 对象
        ChildJSONObject := TJSONObject.Create;
        try
          // 将一对多表的主表数据添加到主 JSON 对象中
          ChildJSONObject.AddPair('FieldName1', TJSONString.Create(MasterDataSet.FieldByName('FieldName1').AsString));
          ChildJSONObject.AddPair('FieldName2', TJSONInteger.Create(MasterDataSet.FieldByName('FieldName2').AsInteger));
          
          // 创建子 JSON 数组
          ChildJSONArray := TJSONArray.Create;
          try
            // 循环遍历一对多表的从表数据
            while not DetailDataSet.Eof do
            begin
              // 创建子 JSON 对象
              ChildJSONObject := TJSONObject.Create;
              try
                // 将一对多表的从表数据添加到子 JSON 对象中
                ChildJSONObject.AddPair('FieldName3', TJSONString.Create(DetailDataSet.FieldByName('FieldName3').AsString));
                ChildJSONObject.AddPair('FieldName4', TJSONInteger.Create(DetailDataSet.FieldByName('FieldName4').AsInteger));
                // 将子 JSON 对象添加到子 JSON 数组中
                ChildJSONArray.AddElement(ChildJSONObject);
              finally
                ChildJSONObject.Free;
              end;
              DetailDataSet.Next;
            end;
            // 将子 JSON 数组添加到主 JSON 对象中
            ChildJSONObject := TJSONObject.Create;
            ChildJSONObject.AddPair('Details', ChildJSONArray);
            JSONArray.AddElement(ChildJSONObject);
          finally
            ChildJSONArray.Free;
          end;
        finally
          ChildJSONObject.Free;
        end;
        MasterDataSet.Next;
      end;
      // 将主 JSON 数组添加到主 JSON 对象中
      JSONObject.AddPair('Masters', JSONArray);
    finally
      JSONArray.Free;
    end;
    // 将主 JSON 对象转换为 JSON 字符串并输出
    JSONValue := TDBXJSONTools.JSONValueFromJSON(JSONObject);
    try
      Memo1.Lines.Text := JSONValue.ToString;
    finally
      JSONValue.Free;
    end;
  finally
    JSONObject.Free;
  end;
end;

其中，`MasterDataSet` 和 `DetailDataSet` 分别代表一对多表的主表数据集和从表数据集。请根据实际情况修改字段名、数据集名等参数。