|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
//Cохранение значений реквизитов формы в файл - таблицу значений тоже сохраняет. Код следующий: Процедура СохранитьЗначенияФормы() СтруктураЭлементов = Новый Структура; Для Каждого ЭлементФормы Из ЭлементыФормы Цикл Если ЗначениеЗаполнено(ЭлементФормы.Данные) Тогда ЗнВСтр = ЗначениеВСтрокуВнутр(ЭлементФормы.Значение); СтруктураЭлементов.Вставить(ЭлементФормы.Имя, ЗнВСтр); КонецЕсли; КонецЦикла; ЗначениеВФайл("C:\temp\rekv.ini", СтруктураЭлементов); КонецПроцедуры Процедура ВосстановитьЗначенияФормы() СтруктураЭлементов = Новый Структура; СтруктураЭлементов = ЗначениеИзФайла("C:\temp\rekv.ini"); Для Каждого ЭлементФормы Из ЭлементыФормы Цикл Попытка ЭлементФормы.Значение = ЗначениеИзСтрокиВнутр(СтруктураЭлементов[ЭлементФормы.Имя]) Исключение КонецПопытки; КонецЦикла; КонецПроцедуры |
About the Author
