Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Gamar © (2002-04-20 18:26:00)
Как в отчете написать сумму прописью? Сама функция уже есть, но как ее использовать в QuickReport?

Anatoly Podgoretsky (2002-04-21 01:12:00) [1]
Gamar © (20.04.02 18:56)
Эта функция ни каких расчетовне производит, а только вывод результат на печать, для жтого достаточно использовать OnPrint

Zevgenus (2002-04-21 01:00:00) [2]
Привожу пример добавления функции 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 (2002-04-20 18:56:00) [3]
Да, но а как использовать свои функции в компоненте TQRExpr??? Дело в том, что надо вывести сумму прописью чисел столбца. А в этом компоненте свои определенные функции...

Gamar (2002-04-20 18:50:00) [4]
Спасибо!

Anatoly Podgoretsky (2002-04-20 18:39:00) [5]
QuickReport точно такое же окно, как и все остальные, поэтому можешь использовать напрямую в любом месте.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »