//保存

 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; 

    FDStanStorageXMLLink1; 

    FDStanStorageJSONLink1;

   

   SaveDialog 和 openDialog 的fileter:

     Filter := 'XML Files (*.xml)|*.xml|Binary Files (*.fds, *.fdb, *.adb)|*.fds;*.fdb;*.adb|JSON Files (*.json)|*.json|All files (*.*)|*.*';

————————————————

原文链接：https://blog.csdn.net/jhzhao2001/article/details/53020621