FastReport userfunction

← →
gdima (2004-10-05 11:49) [0]

napisal functiui
kak atu functiu ispolizovati v FastReport??

FastReport 253

← →
Роман Снегирев (2004-10-05 11:55) [1]

такой вот кусок из статьи

Я думаю, в самой функции ничего сложного нет, а если есть то можно разобраться. Теперь необходимо подключить нашу функцию к FastReport. Добавим обработчик события OnUserFuncton класса TfrReport:

//====================================
procedure TForm1.frReport1UserFunction(const Name: string; p1, p2, p3: Variant; var Val: Variant);
begin
if AnsiCompareText("Пропись", Name) = 0 then
val := Propis(Trunc(frParser.Calc(p1)));
end;
//====================================

Для того чтобы функция появилась в списке функций:

//====================================
frAddFunctionDesc(nil, "Пропись", "Дополнительные функции", "Пропись(<Число>)/Возвращает Число прописью");
//====================================

FastReport userfunction Найти похожие ветки