Главная страница
    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.45 MB
Время: 0.005 c
3-49824
vlad_lubenchenko
2002-04-18 14:15
2002.05.16
Проблема с Access+midas+


1-49949
Riko
2002-05-04 11:56
2002.05.16
Как программно показать в PageControl определенный TabSheet?


7-50155
Oleg123
2002-02-19 17:01
2002.05.16
Системный файл


1-49907
shane54
2002-05-02 20:13
2002.05.16
HetToInt


1-49953
JMax
2002-05-04 02:31
2002.05.16
Edit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский