В стандартной комплекте Fast. Report есть пользовательская функция Round – округление до целого числа, но не редко требуется вывести результат, чтобы он был округлён до определённого знака. Для этого я написал функцию My. Round. To, выглядит она следующим образомfunction My. Round. To(X: Extended; N: Integer): Extended; var. Integer; begin. Result : = X.
Fast Script написан полностью на Object Pascal и может быть. Следующий пример показывает, как подключить обработчик события к .
N do. i. 1 : = i. Round(Result*i. 1)/i. Подключение функций производится через интерфейс скриптовой библиотеки Fast. Script, входящей в состав Fast.
Report. Для добавления нашей функции в Fast. Report, необходимо отредактировать файл fs. Именно в этом файле и описаны все пользовательские функции. Преступим к редактированию файла fs. Откроем его с помощью любого текстового редактора (я использовал текстовый редактор Bred). После секции implementation вставим код нашей пользовательской функции, описанный выше.
Для того, чтобы наша функция появилась в списке доступных в дизайнере отчётов, необходимо её добавить в конструкцию constructor Tfs. Sys. Functions. Create следующим образом Add. Method('function My. Round. To(X: Extended; N: Integer): Extended', Call. Method. 6, FCat. Math)Далее, найдём поиском по документу функцию Call.
Fast Script — библиотека для выполнения скриптов. Демонстрационная версия. Здесь вы можете безвозмездно (то есть даром) скачать несколько .
Method. 6 и добавим следующий код: После всех сделанных изменений, сохраним файл. После чего необходимо перекомпилировать исходники скриптовой библиотеки Fast. Script. Для этого, запускаем Re.
Compile. exe из корневой папки Fast. Report, в пункте What you want to do, выбираем Recompile on packages и нажимаем кнопку Compile (при компиляции IDE должна быть закрыта). После компиляции, откроем дизайнер Fast. Report, перейдём на вкладку Functions и увидим, что списке функций появилась наша функция: Попробуем использовать нашу функцию на простом примере. К примеру, необходимо округлить число - 2.
Сделаем, как показано на рисунке ниже и нажмем на просмотр. Видим, что всё работает как положено. Автор: Савельев Андрей aka dron- s.
Fast. Report - Генератор отчетов и инструменты отчетности для Delphi, .