8.2. Можно ли в "Выполнить" запихнуть функцию или альтернативное решение?

[lastlogic]

СтрокаТ = "
|Функция ПолучитьОдин()
|   Возврат 1;
|КонецФункции
|Сообщить(""Один=""+ПолучитьОдин());
|";
Выполнить(СтрокаТ);

Даёт ошибку:
{(2,1)}: Ожидается последовательность операторов
<<?>>Функция ПолучитьОдин()

Есть ли способ объявить произвольную функцию?

Сообщение отредактировано: lastlogic - 16.07.12, 06:19

[Rust]

Цитата lastlogic @ 16.07.12, 06:19

Есть ли способ объявить произвольную функцию?

Хм.. Интересный вариант.
Не пробовал, но, думаю, не получится. Можно попробовать засунуть функцию во внешнюю обработку и обращаться к внешней обработке.

[lastlogic]

Пока сделал как правой рукой левое ухо чесать:

Перем ФункцииОбщегоМодуля;
 
Функция ПолучитьЗначениеВстроеннойФункции(ИмяФункции, Параметр1 = Неопределено, Параметр2 = Неопределено, Параметр3 = Неопределено, Параметр4 = Неопределено)
    Перем Результат;
    
    Стр = ФункцииОбщегоМодуля.НайтиПоЗначению(ИмяФункции);
    Если Стр = Неопределено Тогда
        ВызватьИсключение("Неопределена встроенная функция """+ИмяФункции+"""");
    Иначе
        Выполнить(Стр.Представление);
    КонецЕсли;
    
    Возврат Результат;
КонецФункции
 
ФункцииОбщегоМодуля = Новый СписокЗначений;
ФункцииОбщегоМодуля.Добавить("ПолучитьОдин", "Результат = 1");
Сообщить("Проверить работу функции="+ПолучитьЗначениеВстроеннойФункции("ПолучитьОдин"));

[Outlander]

По-моему в вычислить() можно было нечто подобное завести... Могу и ошибаться

[lastlogic]

Цитата Outlander @ 16.07.12, 10:33

По-моему в вычислить() можно было нечто подобное завести

Вычислить изначально треба выражение, пробовал...



ЗЫ:
Немного не по теме, но вот например в джава скрипте есть кроме объявления
function abc(Prm){}
можно впиндюрить
abc = function(Prm){}

может и одинэсники замутили что-то подобное?