Текущая версия на 16:54, 11 января 2020

PrnFreeBookmarks - это процедура

Отключение помеченных записей для генератора отчетов

PrnFreeBookmarks( pipeline )

Смотрите также

@@ Строка 1: / Строка 1: @@
-PrnFreeBookmarks - это процедура
+[[PrnFreeBookmarks]] - это процедура
+ Отключение помеченных записей для генератора отчетов
-PrnFreeBookmarks(pipeline)
+[[PrnFreeBookmarks]]( pipeline )
-Отключение помеченных записей для генератора отчетов
-= Текст программы =
-type
-  TQREvPrnFreeBookMarks = class(TQREvDbFunction)
-  public
-    function Calculate: TQREvResult; override;
-  end;
-function TQREvPrnFreeBookMarks.Calculate: TQREvResult;
-begin
-  if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and
-    (Argument(0).ObjResult is TppDataPipeline) then
-    with Argument(0).ObjResult as TppDataPipeline do
-      FreeBookmarks
-  else
-  begin
-    if PrintForm = nil then
-      Result := ErrorCreate(Format(SqrExpWrongArguments, ['PrnFreeBookMarks']))
-    else if PrintForm is TFormRpt then
-      if TFormRpt(PrintForm).Report.DataPipeLine <> nil then
-        TFormRpt(PrintForm).Report.DataPipeLine.FreeBookmarks
-      else
-        Result := ErrorCreate(Format(SqrExpWrongArguments,
-          ['PrnFreeBookMarks']));
-  end;
-end;
 = Смотрите также =
+[[Полезные функции]]
 [[Функции Delphi]]
-[[Полезные функции]]