Функция Выполнить() // сворачиваем одинаковые строки в тексте Модуль = Этот.Владелец; Параметр = Модуль.Параметр; Если (Параметр=0) Тогда Сообщить("Параметр не задан"); Возврат 0; Конец; Если (Параметр.Тип()<>Объекты.Текст) Тогда Сообщить("Параметр не текст"); Возврат 0; Конец; Параметр.Обновить(); Текст = Параметр.Текст; Текст.Свернуть(); Параметр.Текст = Текст; Параметр.Обновить(); Конец