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 label设置为背景透明

Delphi 正则表达式校验手机号

Delphi 自动复制到指定目录的代码

Delphi 和微软的 azure 云存储

Delphi 安卓如何获取当前系统语言

Delphi android / ios应用程序中使用tgeocoder类进行反向地理编码（从位置信息中获取地址）

Delphi 2009 之 tstringbuilder 类[3]: replace

Delphi和c++指针详解

Delphi for 循环 to和downto的理解

Delphi api �c multibytetowidechar的用法

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

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