BOM — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Расширение интерпретатора выражений)
м (Расширение интерпретатора выражений)
Строка 41: Строка 41:
 
Для добавления функции в delphi описывается тип, наследуемый от специального класса QuickReport - а
 
Для добавления функции в delphi описывается тип, наследуемый от специального класса QuickReport - а
  
Имя такого класса начинается с
+
Имя такого класса начинается с '''TQREv'''
 
+
TQREv
+

Версия 12:27, 1 апреля 2016

BoM - это функция, описанная в файле QrAddFn.pas

BoM( Dt )

Возвращает дату первого дня месяца

Примеры

Bom( Date() )

Результат

01.04.2016

Полный текст функции

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');

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

В фабиусе используются исходники программы QuickReport

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

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