Delphi: Сохранение всех настроек

Когда программа содержит больше 50 чекбоксов/полей/радиобатонов/etc - сохранять их все довольно утомительное занятие, приходиться прописывать каждую настройку руками, придумывая при этом уникальные имена. Для ускорения написания софта я сделал пару функций, которыми решил поделиться с читателями моего бложика.

 

Функции сохраняют все поля используя рекурсивный поиск по компонентам, можно указать в качестве источника FormN и тогда будут сохранены абсолютно все поля которые есть на форме. Сохранение работает для компонентов из пакета AlphaSkins, но по примеру вы без труда сможете переделать их под стандартные или самописные.

Пример использования:

SaveFields(sTabSheet1); //для вкладок
SaveFields(Form1); //для всех компонентов на форме
SaveFields(sPanel1); //только компоненты с панели 1

Функция LoadFields работает по аналогичному принципу.

Для удобства можно объявить переменную ini:TIniFile; как глобальную, не забыв при этом добавить в USES модуль IniFiles.

Сами функции опубликовал тут: PASTEBIN