首先确保已经正确设置了 Firedac 连接到目标数据库，并执行了所需的SQL 查询语句获取到所需的结果集。假定我们已有一个TFDQuery对象实例qMyData用于承载从特定表检索出的所有记录。
### 1. 使用TFDJSONConverter类
Embarcadero的FireDAC提供了内置的`TFDJSONConverter`工具类来帮助我们将各种 FireDAC 数据源（如 TDataSet 的子类）的内容转换成 JSON 格式字符串或流。
delphi
uses
System.JSON,
FireDAC.Comp.Client;
var
MyJSONArray: TJSONArray;
I: Integer;
begin
// 假设 qMyData 是一个填充有查询结果的 TFDQuery 对象
for i := 0 to Pred(qMyData.RecordCount) do begin
qMyData.RecNo := i; // 将当前行移动至指定索引位置
// 调用 TFDJSONConverter 提供的方法 ConvertToJSONObject 来创建单条记录对应的 JSONObject
var JsonObject:= TFDJSONConverter.ConvertToJSONObject(qMyData);
// 然后将其添加进 JSONArray 中
if not Assigned(MyJSONArray) then
MyJSONArray := TJSONArray.Create();
MyJSONArray.Add(JsonObject);
end;
// 此刻，MyJSONArray 包含所有查询结果转译后的 JSON 对象数组
end;
### 2. 直接输出整个数据集为JSON
如果你希望一次性转化并获得包含全部查询结果的单一JSON对象或者数组，则可以简化上述步骤：
delphi
var
JsonText : string;
begin
FDConnection.Open(); // 打开数据库连接
try
// 设置 SQL 查询并对 qMyData 执行它
qMyData.SQL.Text := 'SELECT * FROM YourTable';
qMyData.Active := True;
// 利用 TFDJSONConverters 方法直接把整个 Query 结果序列化为 JSON 字符串
JsonText := TFDJSONConverter.JsonArrayFromDataset([qMyData]);
Memo1.Lines.Text := JsonText; // 输出生成的 JSON 文本内容
finally
qMyData.Close;
FDConnection.Close;
end;
end;
通过以上方式，我们可以轻松地使用Firedac对查询结果进行高效便捷的JSON形式转换，极大地增强了程序的数据交换能力和灵活性。同时，请注意实际项目应用需考虑性能优化及错误捕获等问题，例如当大数据量下应采用分批次读取与转换策略避免内存溢出等异常情况的发生。
