Delphi XE10 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; 

    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
 

相关阅读 >>

Delphi cookie获取及使用

Delphi urlencode与urldecode

Delphi 如何遍历整个硬盘的各个目录，就像windows的查找功能那样

Delphi 去除 tstringlist 重复项

Delphi服务程序(service)的调试方法

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi中使用汇编(关于pos函数的问题)

Delphi bintohex和hextobin

Delphi adoconnection断线重连

Delphi decodeutf8str解决系统自带utf8解码缺陷

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE10 FDMemTable 数据保存本地和从本地加载