Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
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, "Пропись", "Дополнительные функции", "Пропись(<Число>)/Возвращает Число прописью");
//====================================
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.023 c
