这不是一个好办法。我真的建议考虑至少三个选择：
1.使用System.JSON单元的强大功能。

Uses {...} System.JSON;
        
    Var    
    FDQuery : TFDQuery;
    field_name,Columnname,ColumnValue : String;
    I: Integer;

    LJSONObject:TJsonObject;
    begin
        FDQuery := TFDQuery.Create(nil);
        try
          FDQuery.Connection := FDConnection1;
          FDQuery.SQL.Text := query;
          FDQuery.Active := True;
          FdQuery.BeginBatch;//Don't update external references until EndBatch;
          FDQuery.First;
          LJSONObject:= TJSONObject.Create;
          while (not FDQuery.EOF) do
          begin
                for I := 0 to FDQuery.FieldDefs.Count-1 do
                begin
                  ColumnName  := FDQuery.FieldDefs[I].Name;
                  ColumnValue := FDQuery.FieldByName(ColumnName).AsString;
                  LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONString.Create(ColumnValue)));
                FDQuery.Next;
              end;
              //FDQuery.Refresh; that's wrong
             FdQuery.EndBatch;
            finally 
              FDQuery.Free;
              Showmessage(LJSonObject.ToString);
            end;
        end;

个字符
1.第二种方法，使用FDMemTable.SaveToStream; * 同样适用于FDMemTable.SaveToFile;* 将TFDMemTable放在数据表（或表单）上。

fMStream:TMemoryStream;
        Begin       
        FDQuery := TFDQuery.Create(nil);
           try
              FDQuery.Connection := FDConnection1;
              FDQuery.SQL.Text := query;
              FDQuery.Active := True;
              //fdMemTable1.Data:=fdQuery.Data; {note *2}
              fdMemTable1.CloneCursor(FdQuery,true,true);{note *3}
              fMStream:=TMemoryStream.Create;
              FdMemTable1.SaveToStream(fMStream,sfJson);
           finally
               FDQuery.Free;
               FdMemTable.Close;
           end;

型
现在您可以阅读JSON内容
例如，下面的答案Converting TMemoryStream to 'String' in Delphi 2009

function MemoryStreamToString(M: TMemoryStream): string;
begin
      SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char));
end;

型
json是String
1.该BatchMove由@ davaMarotoSilva发布
你可以使用BatchMove组件，它提供了一个在数据集之间移动数据的接口，但是当你想以驱动器、XML或JSON格式保存数据时，它更适合备份和导入。我还没有找到在内存中使用数据移动的例子;如果有人有例子，请评论。

备注

1.使用FdMemTable时，不要忘记拖动TFDStanleyJSONLink组件进行数据Map
1.方法。Data只适用于FiredacDatasets（前缀为FD的Datasets）。要为旧Datasets中的memTable分配数据，请使用方法.Copydata。
1.抱歉，我将.Data更改为.CloneCursor，以便与两个数据集共享相同的内存空间。

我只是修改了我下面的第一个答案，以comport不同类型的字段转换为适当的json格式的数字，日期和布尔值。我注解了我没有测试的类型。看

使用{...} System.JSON;

Var    
FDQuery : TFDQuery;
field_name, Columnname, ColumnValue : String;
I: Integer;

LJSONObject:TJsonObject;
begin
    FDQuery := TFDQuery.Create(nil);
    try
      FDQuery.Connection := FDConnection1;
      FDQuery.SQL.Text := query;
      FDQuery.Active := True;
      FdQuery.BeginBatch;//Don't update external references until EndBatch;
      FDQuery.First;
      LJSONObject:= TJSONObject.Create;
      while (not FDQuery.EOF) do
      begin
            for I := 0 to FDQuery.FieldDefs.Count-1 do
            begin
              ColumnName  := FDQuery.FieldDefs[I].Name;

Case FDQuery.FieldDefs[I].Datatype of
                  ftBoolean: 
                    IF FDQuery.FieldDefs[I].Value=True then   LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONTrue.Create)) else 
                      LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONFalse.Create)); 
                  ftInteger,ftFloat{,ftSmallint,ftWord,ftCurrency} :
                    LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONNumber.Create(FDQuery.FieldDefs[I].value)));   
                  ftDate,ftDatetime,ftTime:
                   LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONString.Create(FDQuery.FieldDefs[I].AsString)));
//or TJSONString.Create(formatDateTime('dd/mm/yyyy',FDQuery.FieldDefs[I].Value));
                  else LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create( ColumnName),TJSONString.Create(FDQuery.FieldDefs[I].AsString)));
              End;

FDQuery.Next;
          end;
         FdQuery.EndBatch;
        finally 
          FDQuery.Free;
          Showmessage(LJSonObject.ToString);
        end;
    end;

关于数据集的更多信息。DataType http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/DB_TFieldType.html
更多关于JSONTypes https://community.embarcadero.com/blogs/entry/json-types-for-server-methods-in-datasnap-2010-4

考虑使用TFDBatchMove组件。它用于在两个数据库之间直接传输数据，并支持额外的Map。作为源和目标，可以是文本，数据集或对任何FireDAC支持的数据库引擎的SQL查询。

Delphi MVC Framework包含一个强大的Map器，可以将jsonMap到对象，将数据集Map到对象。Mapper是一个子项目。它是独立的代码，也可以用于其他类型的项目。它是开源的！
优点是布尔值，例如，被转换为TJSONBool类型，而不是字符串。我建议看看示例。
https://github.com/danieleteti/delphimvcframework/tree/master/samples/objectsmapperssamples的

这可能不是最好的解决方案，你可以修改它来格式化JSON.这里有一个快速的示例解决方案：

function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;
var
  f: TField;
  o: TJSOnObject;
  a: TJSONArray;
begin
  a := TJSONArray.Create;
  DataSet.Active := True;
  DataSet.First;
  while not DataSet.EOF do begin
    o := TJSOnObject.Create;
    for f in DataSet.Fields do
      o.AddPair(f.FieldName, VarToStr(f.Value));
    a.AddElement(o);
    DataSet.Next;
  end;
  DataSet.Active := False;
  Result := TJSONObject.Create;
  Result.AddPair(DataSet.Name, a);
end;

字符串

我喜欢它的简单性，有了JsonDataObjects的强大功能，我们可能会得到JsonObject的结果。
使用.. JsonDataObjects，

function GetDataSetAsJSON(DataSet: TDataSet): JsonDataObjects.TJSONObject;
var
  F: TField;
  JDO : JsonDataObjects.TJSONObject;
begin
  Result := TJsonObject.Create;
  DataSet.Active := True;
  DataSet.First;
  while not DataSet.EOF do
  begin
    // automatic object creation, 'ResultData' is the owner of JDO
    JDO := Result.A['ResultData'].AddObject();
    for F in DataSet.Fields do
      JDO.S[F.FieldName] := VarToStr(F.Value);
    DataSet.Next;
  end;
  DataSet.Active := False;
end;

字符串