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

最新推荐文章于 2024-06-14 15:03:43 发布

jhzhao2098

最新推荐文章于 2024-06-14 15:03:43 发布

阅读量5.9k

点赞数

分类专栏： delphi

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

版权

这篇博客介绍了如何在Delphi XE10中使用FDMemTable组件进行数据的本地保存和加载。通过SaveDialog和OpenDialog选择文件，利用FDMemTable的SaveToFile和LoadFromFile方法实现二进制、XML和JSON格式的数据存储。此外，还展示了如何设置DBGrid列的对齐方式和宽度。

摘要由CSDN通过智能技术生成

//保存

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三种,需要在窗体放上三个控件：