Автоматическое сохранение или загрузка установок пользователя

Delphi , Файловая система , Файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   procedure SaveConfig(fn: string);
   procedure LoadConfig(fn: string);
 end;

 implementation

 {....}

 procedure TForm1.SaveConfig(fn: string);   // fn: Filename where to save the stream 
{ 
 Saves all TWinControl-descendants of all Pages of a PageControl in a stream 
 can easy be used to save userdefined Options 
 Place a new control to the PageControl and it will be saved to the stream, without 
 any additional codeline 

 Speichert alle Abkommlinge von TWinControl auf allen Seiten eines PageControls 
 in ein File 
 Erleichtert das Speichern von benutzerdefinierten Optionen 
 Einfach ein neues Control auf das PageControl setzen und es wird ohne zusatzlichen 
 Code gespeichert 
}
     var
       Stream: TFileStream;
       i, j: Integer;
       ObjName: string[255];
     begin
       Stream := TFileStream.Create(fn, fmCreate);
       try
         Stream.Position := 0;
         // Walk throug every Control on every Page of a PageControl 
        // Alle Controls auf allen Pages eines PageControls durchlaufen 
        for j := 0 to PageControl.PageCount - 1 do
         begin
           for i := 0 to PageControl.Pages[j].ControlCount - 1 do
           begin
             if PageControl.Pages[j].Controls[i] is TWinControl then
             begin
               // If the control is a descendant of TWinControl, then save it in the 
              // stream incl. name and length 
              // Wenn das Control von TWinControl abstammt, dann mit Namen und Lange 
              // in den Stream speichern 
              ObjName := PageControl.Pages[j].Controls[i].Name;
               Stream.WriteBuffer(ObjName, Length(ObjName) + 1);
               Stream.WriteComponent(PageControl.Pages[j].Controls[i]);
             end;
           end;
         end;
       finally
         Stream.Free;
       end;
     end;

     procedure TForm1.LoadConfig(fn: string);  // fn: Filename from where to load the stream 
      // Loads the controls back from the stream 
      // Ladt aus dem gespeicherten Stream den Zustand der Controls zuruck 
    var
        Stream: TFileStream;
       ObjName: string[255];
       ObjNameLen: Byte;
       i, j: Integer;
     begin
       Stream := TFileStream.Create(fn, fmOpenRead or fmShareDenyNone);
       try
         Stream.Position := 0;
         // walk through the stream 
        // durch den ganzen Stream gehen 
        while Stream.Position do
         begin
           try
             // get objectname 
            // Objektname holen 
            Stream.Read(ObjName[0], 1);
             ObjNameLen := Byte(ObjName[0]);
             Stream.Read(ObjName[1], ObjNameLen);
           finally
           end;
           // Search the control on the PageControl 
          // Das Control auf dem PageControl suchen 
          for j := 0 to PageControl.PageCount - 1 do
           begin
             for i := 0 to PageControl.Pages[j].ControlCount - 1 do
             begin
               if PageControl.Pages[j].Controls[i] is TWinControl then
               begin
                 if ObjName = PageControl.Pages[j].Controls[i].Name then
                 begin
                   try
                     if PageControl.Pages[j].Controls[i] is TCheckbox then
                       // TCheckbox has to be set to False 
                      // TCheckbox muss zuerst auf False gesetzt werden 
                      (PageControl.Pages[j].Controls[i] as TCheckbox).Checked := False;
                     // load control 
                    // Control laden 
                    Stream.ReadComponent(PageControl.Pages[j].Controls[i]);
                   finally
                   end;
                 end;
               end;
             end;
           end;
         end;
       finally
         Stream.Free;
       end;
     end;


     { Save}
     procedure TForm1.Button2Click(Sender: TObject);
     begin
       SaveConfig('pagecontrol.dat');
     end;

     { Load}
     procedure TForm1.Button1Click(Sender: TObject);
     begin
       LoadConfig('pagecontrol.dat');
     end;

Код предназначен для сохранения и загрузки состояния PageControl, содержащего несколько страниц с разными контролами (например, наследниками TWinControl). Процедура SaveConfig записывает имена и состояния контролов в файл, а процедура LoadConfig читает из этого файла и восстанавливает исходное состояние.

Разбивка кода:

SaveConfig

1. Создается объект TFileStream, чтобы записать в указанный файл (fn).
2. Итерируется по каждой странице PageControl с помощью вложенного цикла.
3. Для каждого контрола на каждой странице проверяется, является ли он наследником TWinControl (используя ключевое слово is). Если да, то записываются имя и состояние контрола в поток.

LoadConfig

1. Создается объект TFileStream, чтобы прочитать из указанного файла (fn).
2. Итерируется по потоку с помощью цикла while.
3. Для каждого контрола, найденного в потоке, производится поиск соответствующего контрола на PageControl, итерируясь по каждой странице и ее контролам.
4. Если соответствующий контроль найден, то загружается состояние контрола из потока (используя ReadComponent).

Button Click Events

Два кнопки используются для демонстрации сохранения и загрузки конфигурации:

• Кнопка Button2 (SaveConfig) вызывает процедуру SaveConfig с файлом 'pagecontrol.dat'.
• Кнопка Button1 (LoadConfig) вызывает процедуру LoadConfig с тем же файлом.

Альтернативное решение: Вместо использования потока можно использовать базу данных или память-ориентированную хранилищу (например, TDataSet) для хранения состояний контролов. Это позволит реализовать более сложные функции, такие как версионирование данных и разрешение конфликтов. Однако для простого сохранения и загрузки конфигурации данный код должен быть достаточен.

Предложения по улучшению:

1. Рассмотрите добавление обработки ошибок для операций ввода-вывода.
2. Используйте более надежный способ поиска контролов в процедуре LoadConfig (например, используя идентификаторы или GUID-идентификаторы).
3. Добавьте комментарии, объясняющие цель каждой процедуры и логику ее работы.
4. Рассмотрите использование отдельного модуля или единицы для этой функциональности, чтобы сохранить код в порядке.

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

Автоматическое сохранение и загрузка настроек пользователя в приложении, реализованное с помощью процедур SaveConfig и LoadConfig.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::