Просмотр исходного текста страницы BOM

[[BOM]] - это функция, описанная в файле [[QrAddFn.pas]]
 Возвращает дату первого дня месяца
[[BOM]]( Dt )
= Пример = 
 [[BOM]]( [[DATE]]() )
[[Файл:16-08-2016 9-03-46.png]]
= Полный текст функции =
 type
   TQREvBoM = class(TQREvDbFunction)
   public
     function Calculate: TQREvResult; '''override''';
   end;

 function TQREvBoM.Calculate: TQREvResult;
 var
   res: TDateTime;
   v: variant;
 begin
   res := [[BoM]](Argument(0).DateResult);
   v := res;
   Result := QREvVariantToResult(@v);
 end;

= Регистрация =

 RegisterQRFunction(TQREvBoM, 'BoM', '[[BoM]]( Dt )|{Дата первого дня мца}', 'Masha', '1D');

= Расширение интерпретатора выражений =

В фабиусе используются исходники программы [http://www.quickreport.co.uk QuickReport]

Для добавления функции интерпретатора в ''delphi'' описывается тип, наследуемый от специального класса

Имя такого класса начинается с '''TQREv'''

Далее в нашем новом типе перекрывается функция ''Calculate''

Результат, который будет возвращать функция Calculate и будет результатом выполнения новой функции интерпретатора

И последнее, что нужно сделать - зарегистрировать функцию с помощью выражения

 RegisterQRFunction

=  Дерево классов =

 TQREvBoM
   TQREvDbFunction
     TQREvElementFunction
       TQREvElement

= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]