FDQuery, FDMemTable the data sequence is modified JSON

firedac dataset sequence JSON

FIREDAC database engine takes full account of cross-platform and cross-language support.

Thus, FIREDAC sequence data sets can be BIN \ XML \ JSON, three formats.

firedac dataset sequence JSON string:

1 procedure TForm1.Button1Click(Sender: TObject);
2 begin
3   var ss: TStringStream := TStringStream.Create('', TEncoding.UTF8);
4   FDQuery1.SaveToStream(ss, sfJSON);
5   Memo1.Text := ss.DataString;
6   ss.Free;
7 end;
8 　　

 1 procedure TForm1.Button3Click(Sender: TObject);
 2 var
 3   memtable: TFDMemTable;
 4   ms: TStringStream;
 5 begin
 6   memtable := FDMemTable2;
 7   memtable.CachedUpdates := True;
 8   if memtable.State in dsEditModes then
 9     memtable.Post;
10   if memtable.ChangeCount = 0 then
11     Exit;
12   memtable.ResourceOptions.StoreItems := [siDelta, siMeta];
13   ms := TStringStream.Create('', TEncoding.UTF8);
14   try
15     memtable.SaveToStream(ms, sfJSON);
16     Memo1.Text := ms.DataString;
17   finally
18     ms.Free;
19     memtable.ResourceOptions.StoreItems := [siDelta, siMeta, siData];
20   end;
21 end;