Собственные функции в отчете

← →
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.

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

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