1 procedure TForm1.btn1Click(Sender: TObject);
 2 var ss,ss1: TStringStream;
 3 begin
 4    ss := TStringStream.Create('', TEncoding.UTF8);  {建立字符串流}
 5    FDQuery1.SaveToStream(ss, sfJSON); {把数据集保存到流中json}
 6    Memo1.Text := ss.DataString; {显示流json}
 7 //   ss.Position := 0;{必须的}
 8 //   fdmtbl1.LoadFromStream(ss,sfJSON); {内存表从流中load数据}
 9 
10    ss1 := TStringStream.Create(Memo1.Text, TEncoding.UTF8);
11    Memo1.Clear;
12    Memo1.Text := ss1.DataString;
13    ss1.Free;
14    ss.Free;
15 
16  //  fdmtbl1.CloneCursor(FDQuery1,False,False);
17 
18    fdmtbl1.CopyDataSet(FDQuery1,[coStructure,coAppend,coRestart]);
19 
20 //   fdmtbl1.Data := FDQuery1.Data;
21 //   fdmtbl1.Delta;
22 //   FDQuery1.Delta;
23 
24 end;