fdMemtable FDQuery json之间的一些关系

procedure TForm1.btn1Click(Sender: TObject);
var ss,ss1: TStringStream;
begin
   ss := TStringStream.Create('', TEncoding.UTF8);  {建立字符串流}
   FDQuery1.SaveToStream(ss, sfJSON); {把数据集保存到流中json}
   Memo1.Text := ss.DataString; {显示流json}
//   ss.Position := 0;{必须的}
//   fdmtbl1.LoadFromStream(ss,sfJSON); {内存表从流中load数据}

   ss1 := TStringStream.Create(Memo1.Text, TEncoding.UTF8);
   Memo1.Clear;
   Memo1.Text := ss1.DataString;
   ss1.Free;
   ss.Free;

 //  fdmtbl1.CloneCursor(FDQuery1,False,False);

   fdmtbl1.CopyDataSet(FDQuery1,[coStructure,coAppend,coRestart]);

//   fdmtbl1.Data := FDQuery1.Data;
//   fdmtbl1.Delta;
//   FDQuery1.Delta;

end;