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 url解�a函��(by kingron)

Delphi 获取星期的函数

Delphi 控制组件位置上下左右

Delphi控制面板应用大全

Delphi system 中的数学函数

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi木马生成技术

了解Delphi过程类型/过程类型学习

Delphi xe7中的运行时设置android应用程序屏幕方向

Delphi windows的消息传递--消息盒子

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

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