Главная страница
    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.006 c
1-50037
Spike_msu
2002-05-02 03:01
2002.05.16
Перемещение по файлу


4-50175
Serd_hhc
2002-03-16 10:03
2002.05.16
Как определить дату создания/изменения файла?


1-49997
bison
2002-04-30 11:25
2002.05.16
Где найти Компонент контурного графика


3-49886
Grusta
2002-04-19 22:38
2002.05.16
Открытие Excel-файла через ADOQuery ?


1-50040
Akim2
2002-05-01 18:44
2002.05.16
ActiveX





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский