Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Собственные функции в отчете   Найти похожие ветки 

 
Gamar ©   (2002-04-20 18:26) [0]

Как в отчете написать сумму прописью? Сама функция уже есть, но как ее использовать в QuickReport?


 
Anatoly Podgoretsky ©   (2002-04-20 18:39) [1]

QuickReport точно такое же окно, как и все остальные, поэтому можешь использовать напрямую в любом месте.


 
Gamar ©   (2002-04-20 18:50) [2]

Спасибо!


 
Gamar ©   (2002-04-20 18:56) [3]

Да, но а как использовать свои функции в компоненте TQRExpr??? Дело в том, что надо вывести сумму прописью чисел столбца. А в этом компоненте свои определенные функции...


 
Zevgenus   (2002-04-21 01:00) [4]

Привожу пример добавления функции NAME, входной параметр целое или вещественное число (добавь модуль к проекту)

unit myexpr;
interface
uses Qrexpr;

procedure _RegisterQRFunction(FunctionClass : TQRLibraryItemClass; Name, Description, Vendor, Arguments : string);

implementation
type
TQREvNameFunction = class(TQREvElementFunction)
public
function Calculate : TQREvResult; override;
end;
function TQREvNameFunction.Calculate: TQREvResult;
begin
Result.Kind:=resError;
If (ArgList.Count = 1) then
if (Argument(0).Kind = resDouble) then
begin
try
Result.StrResult:="здесть вызов функции..."; // F(Argument(0).DblResult);
Result.Kind:=resString;
except
end;
end else
if (Argument(0).Kind = resInt) Then
begin
try
Result.StrResult:="здесть вызов функции..."; //F(Argument(0).IntResult);
Result.Kind:=resString;
except
end;
end;
end;
procedure _RegisterQRFunction(FunctionClass : TQRLibraryItemClass; Name, Description, Vendor, Arguments : string);
begin
If QRFunctionLibrary.EntryList.IndexOf(Name)=-1 Then
RegisterQRFunction(FunctionClass, Name, Description, Vendor, Arguments);
end;
initialization
_RegisterQRFunction(TQREvNameFunction, "NAME","NAME(<N>)|"
+"Здесь описание функции...","(C)","7N");
end.


 
Anatoly Podgoretsky ©   (2002-04-21 01:12) [5]

Gamar © (20.04.02 18:56)
Эта функция ни каких расчетов не производит, а только вывод результат на печать, для жтого достаточно использовать OnPrint



Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-49853
Andreas1982
2002-04-18 17:06
2002.05.16
Как в приложение получить список свех баз данных на компьютере


7-50140
ut1wpr
2002-02-17 16:26
2002.05.16
Получить адреса портов из BIOSa ?


14-50090
P.
2002-04-01 18:16
2002.05.16
Статьи


1-49962
heruvim4ik
2002-05-04 21:52
2002.05.16
Путь до моего приложения


1-49943
Man-In-Red
2002-05-03 22:50
2002.05.16
Как программно проверить formы?