FDMemTable 数据保存本地和从本地加载

//保存

 procedure TFrm_xxcha.Button4Click(Sender: TObject);
var
 filename:string;
begin
 if SaveDialog2.Execute then
 begin
     filename :=  SaveDialog2.FileName;
     FDMemTable1.SaveToFile(filename);
 end;
end;
//加载
procedure TFrm_xxcha.Button5Click(Sender: TObject);
var
 filename :string;
 i : integer;
begin
 if OpenDialog1.Execute then
 begin
   filename := OpenDialog1.FileName;
   FDMemTable1.Close;
   FDMemTable1.LoadFromFile(filename);
   for i := 0 to dbgrid1.Columns.Count-1 do
    begin
      dbgrid1.Columns[i].Title.Alignment := taCenter;
      dbgrid1.Columns[i].Alignment := taCenter;
      dbgrid1.Columns[i].Width:=100;
    end;
 end;
end;

保存可以分为Binary、XMl、JSON三种,需要在窗体放上三个控件：

   FDStanStorageBinLink1;