PrnFreeBookmarks - История изменений

Hisava в 13:54, 11 января 2020

2020-01-11T13:54:34Z

2017-05-10T07:00:39Z

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

2017-05-10T06:51:36Z

2016-09-02T07:08:08Z

‎Текст программы

2016-09-02T07:07:48Z

2016-09-02T06:56:47Z

2016-09-02T06:56:27Z

Новая страница: «PrnFreeBookmarks - это процедура = Смотрите также = Функции Delphi Полезные функции»

Новая страница

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

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

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

[[Полезные функции]]

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

@@ Строка 7: / Строка 7: @@
 = Текст программы =
-type
+ type
    TQREvPrnFreeBookMarks = class(TQREvDbFunction)
    public
@@ Строка 13: / Строка 13: @@
    end;
-function TQREvPrnFreeBookMarks.Calculate: TQREvResult;
+ function TQREvPrnFreeBookMarks.Calculate: TQREvResult;
-begin
+ begin
    if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and
      (Argument(0).ObjResult is TppDataPipeline) then
@@ Строка 30: / Строка 30: @@
            ['PrnFreeBookMarks']));
    end;
-end;
+ end;
-−
 = Смотрите также =

← Предыдущая		Версия 07:07, 2 сентября 2016
Строка 4:		Строка 4:

	Отключение помеченных записей для генератора отчетов		Отключение помеченных записей для генератора отчетов
		+
		+	= Текст программы =
		+
		+	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;
		+

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

← Предыдущая		Версия 06:56, 2 сентября 2016
Строка 1:		Строка 1:
	PrnFreeBookmarks - это процедура		PrnFreeBookmarks - это процедура
		+
		+	PrnFreeBookmarks(pipeline)
		+
		+	Отключение помеченных записей для генератора отчетов

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