如何在Delphi中以递归方式将JSON字符串中的所有数组转换为dataset？

uses
  System.JSON, Data.DB, FMTBcd, Datasnap.DBClient;

procedure ParseJSONToDataSet(const JSONString: string; DataSet: TDataSet);
var
  JSONValue: TJSONValue;
  JSONArray: TJSONArray;
  JSONObject: TJSONObject;
  I: Integer;
begin
  JSONValue := TJSONObject.ParseJSONValue(JSONString) as TJSONObject;
  try
    ParseJSONObject(JSONValue, DataSet);
  finally
    JSONValue.Free;
  end;
end;

procedure ParseJSONObject(const JSONObject: TJSONObject; DataSet: TDataSet);
var
  I: Integer;
  Value: TJSONValue;
begin
  for I := 0 to JSONObject.Count - 1 do
  begin
    Value := JSONObject.GetValue(I);
    if Value is TJSONArray then
    begin
      ParseJSONArray(Value as TJSONArray, DataSet);
    end
    else if Value is TJSONObject then
    begin
      // 如果需要处理嵌套的JSONObject，可以在这里添加逻辑
    end;
  end;
end;

procedure ParseJSONArray(const JSONArray: TJSONArray; DataSet: TDataSet);
var
  I: Integer;
  Value: TJSONValue;
begin
  for I := 0 to JSONArray.Count - 1 do
  begin
    Value := JSONArray.GetValue(I);
    if Value is TJSONObject then
    begin
      // 如果需要处理数组中的JSONObject，可以在这里添加逻辑
    end;
  end;
end;

procedure TForm1.ParseJSONToDataSetExample;
var
  JSONString: string;
  DataSet: TClientDataSet;
begin
  JSONString := '{"array1": [{"id": 1, "name": "Alice"}, {"id": 2, "name": "Bob"}], "array2": [{"id": 3, "name": "Charlie"}]}';
  DataSet := TClientDataSet.Create(nil);
  try
    ParseJSONToDataSet(JSONString, DataSet);
    // 处理DataSet
  finally
    DataSet.Free;
  end;
end;