TINIPropStorage/ru: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | TINIPropStorage является компонентом, нужен он для того, чтобы сохранить выбранные свойства или восстановить их (либо TForm или любого элемента управления на нем). Он работает со свойством TForm.SessionProperties. Вы можете найти его на вкладке **Misc** на панели компонентов. | |
| 2 | 2 | ||
| 3 | 3 | [[doc:lcl/inipropstorage/tinipropstorage.html|TINIPropStorage]] работает так же, как и [[TXMLPropStorage/ru|TXMLPropStorage]], отличие его в том что он сохраняет все в [INI-file](http://lazarus-ccr.sourceforge.net/docs/fcl/inifiles/index.html) файле. | |
| 4 | 4 | ||
| 5 | 5 | Для получения более подробной информации и примеров смотрите сюда [[TXMLPropStorage/ru|TXMLPropStorage]]. | |
| 6 | 6 | ||
| 7 | 7 | И так, проще говоря, мы сохраняем настройки формы и других элементов в ini файл. Это очень удобно и щас я покажу это на примере. | |
| 8 | 8 | ||
| 9 | 9 | Задача: Сохранить ширину колонок в таблице (в моем примере DBGrid) и потом при запуске программы восстановить её. | |
| 10 | 10 | ||
| 11 | 11 | При закрытие формы (FormClose) пишим код: with Form1.IniPropStorage1 do | |
| 12 | 12 | ||
| 13 | - | ||
| 14 | - | ||
| 15 | - | ||
| 16 | - | ||
| 17 | - | ||
| 18 | - | ||
| 13 | + | ``` pascal | |
| 14 | + | begin | |
| 15 | + | IniSection:='DBGrid1_Column'; | |
| 16 | + | WriteInteger('Column_0', DBGrid.Columns.Items[0].Width); | |
| 17 | + | WriteInteger('Column_1', DBGrid.Columns.Items[1].Width); | |
| 18 | + | WriteInteger('Column_2', DBGrid.Columns.Items[2].Width); | |
| 19 | + | end; | |
| 20 | + | ``` | |
| 19 | 21 | ||
| 20 | 22 | DBGrid1_Column - Это раздел/секция в ini файле (внизу покажу пример ini файла). Этих разделов может быть много. WriteInteger('Имя_Колонки', значение) - Это аналогично тому имя_переменной = значение. Вот и все. Мы сохранили в ini файл данные. Все довольно просто. | |
| 21 | 23 | ||
| 22 | 24 | Теперь надо их считать и установить при запуске формы в таблицу. | |
| 23 | 25 | ||
| 24 | 26 | При создании формы (FormCreate) пишим код: with Form1.IniPropStorage1 do | |
| 25 | 27 | ||
| 26 | - | ||
| 27 | - | ||
| 28 | - | ||
| 29 | - | ||
| 30 | - | ||
| 31 | - | ||
| 28 | + | ``` pascal | |
| 29 | + | begin | |
| 30 | + | IniSection:='DBGrid1_Column'; | |
| 31 | + | DBGrid1.Columns.Items[0].Width:=ReadInteger('Column_0', 20); | |
| 32 | + | DBGrid1.Columns.Items[1].Width:=ReadInteger('Column_1', 20); | |
| 33 | + | DBGrid1.Columns.Items[2].Width:=ReadInteger('Column_2', 20); | |
| 34 | + | end; | |
| 35 | + | ``` | |
| 32 | 36 | ||
| 33 | 37 | IniSection:='DBGrid1_Column' - Считываем раздел DBGrid1_Column который создали выше. DBGrid1.Columns.Items\[0\].Width - Получаем ширину колонки в данном случае нулевой. ReadInteger('Имя_колонки', значение_по_умолчанию_если_нет_значения_у_переменной) - Имя колонки из примера Column_0 и Второй парамент это значение по умолчанию. В нашем примере это 20 пикселей ширина колонки если вдруг не будет у переменной значения. Хотя у нас такого не будет =) | |
| 34 | 38 | ||
| 35 | 39 | В других случаях можно задавать текст в значение по умолчанию или какие то свои переменные, если в ini файле случайно не будет стоять на против переменно значение. | |
| 36 | 40 | ||
| 37 | 41 | Вот и все. Мы загрузили из ini файла переменные и значения. | |
| 38 | 42 | ||
| 39 | 43 | Пример получившегося ini файла: \[DBGrid1_Column\] Column_0=69 Column_1=114 Column_2=74 | |
| 40 | 44 | ||
| 41 | 45 | \[DBGrid1_Column\] - название раздела/секции Column_0=69 - Наша переменная Column_0 и значение 69 пикселей ширина нулевой колонки (она же первая но т.к.счет идет с нуля то нулевая) | |
| 42 | 46 | ||
| 43 | 47 | [[Hardware Access]] | |
| 44 | 48 | ||
| 45 | 49 | --- | |
| 46 | 50 | *From the Free Pascal wiki, page "TINIPropStorage/ru", as it stood on 2016-12-28 after a change by Amber, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |