Сохраняем Настройки Приложения В 2 Строки Rad Studio 10 Seattle

Lomanu4 · 20 Янв 2016

В андроиде,разработчики сделали,что при закрытие программы,закрывается так же и его процессор,что бы наша процедура работала так же и на Андроиде,вам нужно зайти в настройки и отключить опцию закрытие процессоров приложения,это единственный метод,сохранить все настройки приложения. В Андроиде, если вы нажмете кнопку Home,то настройки останутся сохранены,так как приложение было свернуто.
Что касается остальных платформ,то эта процедура работает без проблем даже если вы закроете процесс программы.

Вот весь код

Код:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Edit;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormSaveState(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}
uses SaveStateHelper;
procedure TForm1.FormCreate(Sender: TObject);
begin
LoadFormState;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SaveFormState;
end;

procedure TForm1.FormSaveState(Sender: TObject);
begin
SaveFormState;
end;

ну а тут вы можете скачать саму библиотеку

Скачать тут

Сохраняем Настройки Приложения В 2 Строки Rad Studio 10 Seattle

Lomanu4