delphi xe2 把json转化为dataset传给fastreport打印

Delphi XE2中，你可以使用TJSONObject库将JSON数据转换为Dataset，然后传递给FastReport进行打印。以下是基本步骤：

1. 首先，你需要安装一个支持JSON解析的组件，如Jedi JSON Parser或者Krysalead JSON。

2. 使用JSON组件将JSON字符串解析成TJSONObject或TJSONArray对象。例如，如果你有一个JSON字符串`var jsonString := '{"name": "John", "age": 30}';`，可以这样转换：

uses Jedi.Json;

var
  jsonObject: TJObject;
begin
  jsonObject := TJObject.Parse(jsonString);
end;

3. 将解析后的JSON对象转换为DataSet。对于复杂的结构，你可能需要递归遍历并创建相应的Table和Field。假设你的JSON有键值对可以直接映射到DataSet，可以直接这样做：

var
  ds: TDataSet;
begin
  // 创建空的数据集
  ds := TDataSet.Create(nil);

  // 假设我们有一个名为"fields"的字段列表，可以根据JSON对象添加数据
  for field in jsonObject.Fields do
  begin
    ds.Append;
    ds.FieldByName(field.Name).AsVariant := field.Value.AsVariant;
  end;
end;

4. 最后，将DataSet传递给FastReport的报表模板进行打印。通常，你可以设置报表的数据源为DataSet：

report1.DataSource := ds; // 报表名为report1
report1.Print;