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;
