Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.036 c
1-1096895878
Idoga
2004-10-04 17:17
2004.10.17
Отключиться от Excel


14-1095957670
SergP.
2004-09-23 20:41
2004.10.17
GPRS


1-1096652804
UserUserov
2004-10-01 21:46
2004.10.17
Поиск файлов


1-1096944503
SDA
2004-10-05 06:48
2004.10.17
Крупный либо мелкий шрифт!!!???


1-1096344191
Ozone
2004-09-28 08:03
2004.10.17
Задача про регулярные грамматики