Delphi FireMonkey 存储来自组件的信息

Question

我希望我的 Delphi FireMonkey 应用程序将来自 Edit.Text 组件的所有信息存储在应用程序可以从另一次启动应用程序时重新加载这些数据的任何位置。 （这不是必需的或不需要的，但我也想保存一些 Memo.Text 和 Combobox.ItemIndex [也许还有一些其他] 数据。）

我能想到的唯一方法是编写一个程序，将所有信息存储到 TMemo 中并将其保存到文件中。 （以及重新分配这些东西的另一个程序）如果只有一些信息，我会这样做，但我有太多数据要记住，所以这样做太难了。

我的问题是如何让我的应用程序轻松记住所有这些数据/值。 （类似于function SaveAllComponentsValues;） 我的应用程序将在 Mac、Windows、iOS 和 Android 上运行，因此该解决方案必须适用于所有这些平台。

我想可以存储[特定/所有]组件的所有属性。这对我也很有帮助。

Answer 1

如果您确定不应该使用数据库，那么您可以使用 inifile 来保存值并遍历表单上的组件。对移动设备一无所知，因此不确定，但这里有 2 个程序可以保存和恢复表单上的所有 Tedit 组件：

uses system.ioutils;
..


procedure TForm2.savebuttonClick(Sender: TObject);

var i:integer;
    acomponent:tcomponent;
    inifile:tinifile;

begin
  inifile:=tinifile.Create(tpath.GetHomePath+tpath.DirectorySeparatorChar+'myinifile.ini');
  for i:=0 to form2.ComponentCount-1 do
  begin
    acomponent:=form2.Components[i];
    if acomponent.ClassType=tedit then inifile.WriteString('Edits',acomponent.Name,(acomponent as tedit).Text)
  end;
  inifile.free
end;

procedure TForm2.restorebuttonClick(Sender: TObject);

var i:integer;
    acomponent:tcomponent;
    inifile:tinifile;

begin
  inifile:=tinifile.Create(tpath.GetHomePath+tpath.DirectorySeparatorChar+'myinifile.ini');
  for i:=0 to form2.ComponentCount-1 do
  begin
    acomponent:=form2.Components[i];
    if acomponent.ClassType=tedit then
    begin
      (acomponent as tedit).Text:=inifile.readString('Edits',acomponent.Name,'')
    end;
  end;
  inifile.free
end;