Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.049 c