FastReport userfunction [D6]
gdima © (2004-10-05 11:49:00)
napisal functiui
kak atu functiu ispolizovati v FastReport??
FastReport 253
Роман Снегирев (2004-10-05 11:55:00) [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, 'Пропись', 'Дополнительные функции',
'Пропись(<Число>)/Возвращает Число прописью');
//====================================
Наверх 
ЧАТ |
Орешник |
|
