На языке PascalScript на платформе "Мельница данных" описываются тела методов и выражения. Выражения используются в условиях отбора объектов определенного класса при их отображении в представлениях, а также как встраиваемые выражения, которые могут служить членами класса для чтения свойств.

Здесь и далее зарезервированные слова выделены жирным шрифтом.

1  [Описание переменных]
2  begin
3    //Операторы
4  end;

Комментарии расположены между символами { и } либо от символов // до конца строки.

1var
2    Имя переменной[, Имя переменной…]: Тип;
3    Имя переменной[, Имя переменной…]: Тип;
4    ...

• integer - определяет переменные целочисленного типа;
• string[целое_число] - определяет переменные строкового типа с заданной максимальной длиной; максимальная длина задается в квадратных скобках и обязательна для задания;
• float - определяет переменные вещественного типа;
• date - определяет переменные типа "дата";
• time - определяет переменные типа "время";
• datetime - определяет переменные типа "дата со временем";
• boolean - определяет переменные логического типа;
• blob - определяет переменные типа больших двоичных объектов;
• Имя класса - определяет переменные-ссылки на экземпляры соответствующих классов;

1  var
2   I: integer;
3   LSomeObject: TObject;
4   LStart, LStop: datetime;
5   LNewName: string[64];

Операторы разделяются точкой с запятой (;). Операторы могут быть одним из следующих:

1begin
2  //Другие операторы
3end

1begin
2  Result := LCurrentValue;
3  Exit;
4end;

1Выражение1 := Выражение2

Присваивает значение выражения Выражение2 выражению Выражение1. Типы Выражения1 и Выражения2 должны быть совместимы (совпадать по классу домена либо оба быть числовыми). Для этого на Выражение1 (стоящее слева от знака равенства, lvalue) накладывается ряд ограничений. Это выражение должно быть:

• Полем или свойством экземпляра класса
• Локальной переменной
• Параметром
• Зарезервированной переменной Result

1LObject.Name := 'Новое имя';

1Result := 25;

1LStartTime := StrToDateTime('01.01.2006 00:00:30'); 

01var
02  LObject: TObject;
03  LClass: TClass;
04  I: Integer; 
05  F: Float;
06begin
07  I := F;  //неверно
08  F := I;  //верно
09  LObject := LClass; //верно
10  LClass := LObject; //неверно. Должно быть LClass := (LObject as TClass);
11end;  

1ИмяПроцедуры [(Параметр1, Параметр2 ...)]

"ИмяПроцедуры" должно быть:

• Именем метода класса и вызываться с указанием класса либо экземпляра;
• Именем метода экземпляра и вызываться с указанием экземпляра;
• Именем метода своего класса либо предка и вызываться без указания спецификаторов.

1  //метод класса, указан класс
2  LList := TObjectList.Create(Name, Description, TObjectList, nil, nil, Folder);    
3
4  //метод экземпляра, указан экземпляр. Метод не имеет параметров.
5  LList.Destroy;
6
7  //свой либо унаследованный метод
8  BuildDefaultActions(Name, True); 

1if Выражение then
2  //Оператор1
3[else
4  //Оператор2]

Выражение должно быть логического типа. В случае если значение Выражения истинно, выполняется Оператор1. Часть else является необязательной и относится к последнему оператору if, не имеющему таковой. В случае ее наличия Оператор2 выполняется, если значение Выражения ложно.

1if LIndex > 25 then
2  raise 'Индекс слишком большой.';

1if LMonth = 'январь' then
2  January
3else if LMonth = 'февраль' then
4  February
5else   
6  OtherMonth;  //обратите внимание на точки с запятой.

1case Выражение of
2  Значение1: //Оператор1
3  Значение2: //Оператор2
4  ...
5[else
6  //Оператор ]
7end

Заменяет каскад операторов if. Значение Выражения должно быть числового типа. Часть else выполняется в случае, если Выражение не равно ни одному из перечисленных вариантов. Эта часть не является обязательной.

1сase LIndex of
2  0: ZeroIndex;
3  1,2,3: SmallIndex;
4  4,5,6,7,8,9,10: BigIndex;
5else
6  raise 'Слишком большой или отрицательный индекс.';
7end;

1while Выражение do
2  //Оператор

Оператор выполняется до тех пор, пока значение Выражения истинно. Выражение должно быть логического типа. Если при входе в цикл Выражение не истинно, то тело цикла не будет выполнено ни одного раза.

01while LList.Count > 0 do
02  LList.GetItem(0).Destroy;
03
04while True do
05begin
06  LValue := LValue.NextValue;
07  if LValue.Value > 10 then
08  begin
09    Result := LValue.Value;
10    exit;
11  end;
12end;

1repeat
2  //Операторы
3until Выражение

Операторы выполняются до тех пор, пока значение Выражения ложно. Выражение должно быть логического типа. Обратите внимание, что внутри себя оператор может содержать несколько операторов, разделенных точкой с запятой. Тело цикла обязательно будет выполнено хотя бы один раз.

1repeat
2  Result := Result + 1;
3  LObject := LObject.Parent;
4until LObject = nil;

1for Параметр := Выражение1 (to|downto) Выражение2 do
2  //Оператор

Параметр цикла обязан быть простой локальной переменной. Функционально цикл с параметром эквивалентен циклам:

• Для формы to

  1Параметр := Выражение1;
  2while Параметр <= Выражение2 dobegin
  3  Оператор;
  4  Параметр :=  Параметр + 1;
  5end;

• Для формы downto

  1Параметр := Выражение1;
  2while Параметр >= Выражение2 dobegin
  3  Оператор;
  4  Параметр :=  Параметр - 1;
  5end;

1for I := LList.Length - 1 downto 0 do
2// если LList.Length = 0, тело цикла ни разу не будет выполнено.
3begin
4  LClass := LList.GetItem(I);
5  LMethod := any(TMethod with (Name = LName) and (Master = LClass));
6  LParamList.Add(any(TMethod with (Name = LName) and (Master = LClass)));
7end; 

1for each Параметр of ИмяКласса [with Выражение]
2       [by [-] Выражение [, [-] Выражение]] do
3         //Оператор

Цикл осуществляется по выборке среди экземпляров класса ИмяКласса, для которых истинно Выражение. Если Выражение не задано, то по всем экземплярам. Ссылка на текущий в рамках цикла экземпляр присваивается в локальную переменную Параметр. Выражение должно определяться относительно переменной Параметр. Выраженния, следующие за ключевым словом by, определяют порядок обхода экземпляров. Знак "-" перед выражением (любого типа) определяет обратный порядок обхода.

1for each LOption of TOption with LOption.Domain.Required do
2    // для каждой настройки, домен которой обязателен
3  LOption.SetDefaultValue;

1break

Происходит немедленный выход из цикла. Выполняется финализация операторов защиты завершения, которыми защищено тело цикла. Допустим только в теле цикла с предусловием, цикла с постусловием, цикла с параметром или цикла по экземплярам.

1exit

Происходит немедленный выход из программного блока. Выполняется финализация операторов защиты завершения.

1try
2  //Операторы1
3finally
4  //Операторы2
5end

Выполняются операторы Операторы1, разделенные точкой с запятой. В случае возникновения исключительной ситуации управление сразу передается на Операторы2, и после их выполнения исключение остается активным. Если исключения не произошло, выполняются Операторы2. Если среди Операторов1 встречается оператор exit, то Операторы2 все равно выполняются.

1//создание временного объекта-списка
2LList := TObjectList.Create(Name, Description, TObjectList, nil, nil, Folder);    
3try
4  LList.Add(LValue);
5  Exit;
6finally
7  //гарантированное уничтожение созданного объекта независимо от исключений.
8  LList.Destroy;
9end;

1try
2  //Операторы1
3except
4  //Операторы2
5end

Выполняются операторы Операторы1. В случае возникновения исключительной ситуации управление передается на Операторы2. Если исключительных ситуаций не возникло, Операторы2 не выполняются никогда. При передаче управления на Операторы2 исключительная ситуация деактивирована. Для ее повторного возбуждения можно воспользоваться оператором возбуждения исключения без указания текстовой строки сообщения.

1try
2  LObject.NeverTouch := True;
3  LObject.ExecuteCoolMethod; //если метод выполнен неудачно
4except
5  LObject.NeverTouch := True;  //установить флаг и ничего не сообщать пользователю.
6end;

1try
2   LObject.ExecuteCoolMethod; //если метод выполнен неудачно
3except
4   LObject.Destroy; //удалить неудачный объект
5   raise;           // продолжить обработку исключения.
6end;

1raise [Выражение]

1inherited

Работает только в унаследованном переопределенном методе. Вызывается метод предка с параметрами, заданными в параметрах к моменту вызова. Если программный блок представляет собой тело функции, то в псевдопеременной Result будет результат выполнения метода предка.

1// в теле конструктора
2Name := 'Object name';
3Description := 'Object description';
4inherited; //вызов предка с параметрами Name и Description, 
5           //заданными двумя предыдущими операторами. Ссылка на 
6           //созданный объект лежит в 
7           //псевдопеременной Result
8Result.Name := 'New name';

• Целая числовая константа (0 3 234);
• Вещественная числовая константа. Дробная часть отделяется от целой точкой (".") (3.14 2.71);
• Строковая константа. Заключается в апострофы. ('Some string' '10', '01.01.2006' 'now');
• Логическая константа (True False);
• Безтиповая (любого типа) константа nil;
• Зарезервированное слово Self. Обозначает разный объект в зависимости от контекста:
  • В методах класса кроме конструктора - использование запрещено.
  • В методах экземпляра - всегда экземпляр, для которого вызван метод.
  • В конструкторе - до вызова унаследованного метода значение не определено. После вызова - ссылка на сконструированный объект.
  • В выражениях условий отбора - объект, для которого принимается решение о его вхождении в отбор.
• Квалификатор.
• Агрегат.

Квалификатор обозначает объект, переменную, параметр, свойство, поле, вызов функции. Квалификатор состоит из идентификаторов, разделенных точкой.

При интерпретации квалификатора используется следующий порядок разбора идентификатора:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Локальная переменная
3. Параметр
4. Имя элемента перечисления
5. Имя класса. Вне контекста означает ссылку на соответствующий объект класса TClass
6. Имя поля
7. Имя метода
8. Имя свойства

При интерпретации квалификатора внутри выражения агрегата правила разбора идентификатора изменяются:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Имя элемента перечисления
3. Имя класса. Если это имя агрегируемого класса, то дальнейшие разыменования относятся к агрегируемому объекту
4. Имя поля
5. Имя метода
6. Имя свойства
7. Локальная переменная
8. Параметр

Агрегат определяет агрегированное значение над экземплярами определенного класса, удовлетворяющими условиям агрегации. Агрегаты бывают следующих типов:

• any - первый попавшийся объект. Результат имеет тип ссылки на объект агрегируемого класса.

  Пример

  1any(TObject with Master = Self.Parent) 2//первый попавшийся объект, имеющий значение 3//свойства Master равным значению свойства 4//Parent текущего (контекстного) объекта.

• count - количество объектов. Результат имеет целочисленный тип.

  Пример

  1count(TObject with Master = Self.Parent) 2//количество объектов, имеющих значение свойства 3//Master равным значению свойства Parent 4//текущего объекта.

• sum - сумма значений свойства, поля или функции объектов. Результат имеет тип суммируемого поля, свойства или функции

  Пример

  1sum(TExam.Mark with Master = LStudent) //сумма 2//баллов студента по его испытаниям

• max, min - соответственно максимальное и минимальное значений свойства, поля или функции объектов. Результат имеет тип агрегируемого поля, свойства или функции

  Пример

  1min(TObject.Created) // момент создания первого 2//объекта Системы.

Внутри выражения агрегата правила разбора идентификатора изменяются на следующие:

1. Контекстная переменная (для выражений условий отбора доменов)
2. Имя элемента перечисления
3. Имя класса. Если это имя агрегируемого класса, то дальнейшие разыменования относятся к агрегируемому объекту
4. Имя поля
5. Имя метода
6. Имя свойства
7. Локальная переменная
8. Параметр

Операции связывают элементы выражений.

Таблица операций в порядке приоритета:

Левый операнд	Правый операнд
	Целый	Вещест- венный	Дата	Время	Дата со временем	Логи- ческий	Строковый	Объект	nil
not
Нет						Логи- ческий
* (звездочка)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
/ (слэш, дробь)
Целый	Вещест- венный	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
div
Целый	Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект
nil
and
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий						Логи- ческий
Строковый
Объект
nil
or
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий						Логи- ческий
Строковый
Объект
nil
+ (плюс)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата	Дата	Дата со временем		Дата со временем
Время	Время	Время	Дата со временем	Время	Дата со временем
Дата со временем	Дата со временем	Дата со временем		Дата со временем
Логи- ческий
Строковый							Строковый
Объект
nil
- (минус)
Целый	Целый	Вещест- венный
Вещест- венный	Вещест- венный	Вещест- венный
Дата	Дата	Дата со временем	Целый	Дата со временем	Вещест- венный
Время	Время	Время	Дата со временем	Время	Дата со временем
Дата со временем	Дата со временем	Дата со временем	Вещест- венный	Дата со временем	Вещест- венный
Логи- ческий
Строковый
Объект
nil
=, <> (равно, не равно)
Целый	Логи- ческий	Логи- ческий							Логи- ческий
Вещест- венный	Логи- ческий	Логи- ческий							Логи- ческий
Дата			Логи- ческий		Логи- ческий				Логи- ческий
Время				Логи- ческий					Логи- ческий
Дата со временем			Логи- ческий		Логи- ческий				Логи- ческий
Логи- ческий						Логи- ческий			Логи- ческий
Строковый							Логи- ческий		Логи- ческий
Объект								Логи- ческий	Логи- ческий
nil									Логи- ческий
<, >, <=, >= (меньше, больше, меньше либо равно, больше либо равно)
Целый	Логи- ческий	Логи- ческий
Вещест- венный	Логи- ческий	Логи- ческий
Дата			Логи- ческий		Логи- ческий
Время				Логи- ческий
Дата со временем			Логи- ческий		Логи- ческий
Логи- ческий						Логи- ческий
Строковый							Логи- ческий
Объект
nil
is
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект								Логи- ческий
nil
as
Целый
Вещест- венный
Дата
Время
Дата со временем
Логи- ческий
Строковый
Объект								Объект
nil

1. Приоритет сравнений ниже приоритета операций булевой логики. Поэтому выражение

   1LObject.Master = LMaster and LObject.Parent = LParent

   будет интерпретироваться следующим образом:

   1LObject.Master = (LMaster  and LObject.Parent) = LParent

   и вызовет ошибку компиляции из-за применения операции and к объектам. Необходимо писать:

   1(LObject.Master = LMaster) and (LObject.Parent = LParent)

2. Любое значение (выражение любого типа) сравнивается с безтиповой константой nil:

   1      LObject := any(TObject with Name = 'Some name');
   2      if LObject = nil then
   3         .....
   4      

3. Операции "Унарный минус" не существует. Для задания отрицательных констант пользуйтесь конструкцией 0-Значение:

   1Result := 0-1;

001Goal: MethodBody | Expression;
002
003MethodBody: [ConstantDeclaration] [VariableDeclaration] CompoundStatement ";";
004
005ConstantDeclaration: "const" Ident ":" DomainSpecification ";" 
006  [{Ident ":" DomainSpecification ";"}];
007
008VariableDeclaration: "var" DomainDefinition [{DomainDefinition}];
009
010DomainDefinition: Ident ":" DomainSpecification ";";
011
012DomainSpecification: IntegerDomainDefinition
013  | StringDomainDefinition
014  | FloatDomainDefinition
015  | DateDomainDefinition
016  | TimeDomainDefinition
017  | DateTimeDomainDefinition
018  | BooleanDomainDefinition
019  | BlobDomainDefinition
020  | EnumerationDomainDefinition
021  | Ident;
022
023IntegerDomainDefinition: "integer";
024StringDomainDefinition: "string" "[" Number "]";
025FloatDomainDefinition: "float" ["(" Number ["." Number] ")"];
026DateDomainDefinition: "date";
027TimeDomainDefinition: "time";
028DateTimeDomainDefinition: "datetime";
029BooleanDomainDefinition: "boolean";
030BlobDomainDefinition: "blob" | "clob";
031EnumerationDomainDefinition: "(" Ident {"," Ident} ")";
032
033CompoundStatement: "begin" Statement [{";" Statement}] "end";
034
035Statement:
036  | CompoundStatement
037  | AssignmentStatement
038  | InheritedStatement
039  | CallStatement
040  | IfStatement
041  | CaseStatement
042  | ForStatement
043  | WhileStatement
044  | RepeatStatement
045  | TryFinallyStatement
046  | TryExceptStatement
047  | RaiseStatement
048  | ForEachStatement
049  | ExitStatement;
050
051AssignmentStatement:  Qualifier ":=" Expression;
052
053CallStatement: Qualifier;
054
055InheritedStatement: "inherited";
056
057IfStatement: "if" Expression "then" Statement ["else" Statement];
058
059CaseStatement: "case" Expression "of" {CaseBranch} ["else" Statement ";"] "end";
060
061CaseBranch: CaseLabel [{',' CaseLabel}] ":" Statement ";";
062
063CaseLabel: Number | Ident;
064
065ForStatement: "for" Ident ":=" Expression ("to"|"downto") 
066  Expression "do" Statement;
067
068WhileStatement: "while" Expression "do" Statement;
069
070RepeatStatement: "repeat" Statement [{";" Statement}] "until" Expression;
071
072TryFinallyStatement: "try" Statement [{";" Statement}] "finally" 
073  Statement [{";" Statement}] "end";
074
075TryExceptStatement: "try" Statement [{";" Statement}] "except" 
076  Statement [{";" Statement}] "end";
077
078RaiseStatement: "raise" [Expression];
079
080ForEachStatement: "for" "each" Ident "of" Ident ["with" Expression] 
081  ["by" Expression] "do" Statement;
082
083ExitStatement: "exit";
084
085Expression: ComparedExpression [{RelationOperation Expression}];
086
087ComparedExpression: Addon [{AdditionOperaton ComparedExpression}];
088
089Addon: Factor [{MultiplicativeOperation Addon}];
090
091Factor: "(" Expression ")"
092  | "not" Expression
093  | Number ["." Number]
094  | StringConstant
095  | Qualifier
096  | "nil"
097  | "True"
098  | "False"
099  | "(" Expression "is" Ident ")"
100  | "any" Aggregate
101  | "count" Aggregate
102  | "sum" Aggregate
103  | "max" Aggregate
104  | "min" Aggregate;
105
106Aggregate: "(" Ident ["." Ident] ["with" Expression] ")";
107
108Qualifier: QualifierPart [{"." QualifierPart}];
109
110QualifierPart: Ident ["(" Expression [{", " Expression}] ")"]
111  | "self"
112  | "(" Qualifier "as" Ident ")";
113
114RelationOperation: "<"
115  | ">"
116  | "<="
117  | ">="
118  | "="
119  | "<>";
120
121AdditionOperaton: "+"
122  | "-"
123  | "or";
124
125MultiplicativeOperation: "*"
126  | "/"
127  | "div"
128  | "and";

В качестве вводимых (объявляемых) идентификаторов необходимо использовать так называемую нотацию InfixCaps. Если при создании имени используется несколько слов, то необходимо использовать заглавную букву для каждого слова в имени. Для разделения слов нельзя использовать символ подчеркивания. Все сущности именуются на английском языке, при этом использование сокращений является оправданным только в случае, если длина образуемого имени не согласуется с внешними по отношению к соображениям бизнес-логики ограничениям.

• Имя класса должно начинаться с латинской буквы 'T'.

  Пример

  Имя Наименование TObjectList Список объектов TLearnPlan Учебный план

• Имя поля должно начинаться с латинской буквы 'F'.

  Пример

  Имя Наименование FLearnPeriod Период обучения FExamMark Оценка за экзамен

• Имя свойства не имеет префикса.

  Пример

  Имя Наименование ExamKind Вид рубежного испытания ContactPhone Контактный телефон

  Если членом класса для чтения свойства является поля, то имя свойства должно повторять имя поля без префикса 'F'. Если членом класса для чтения свойства является метод, то имя поля должно повторять имя метода без слова 'Get'.
• Имя параметра не имеет префикса.

  Пример

  Имя Наименование OrderNumber Номер приказа ExamDate Дата проведения экзамена

  Параметры, используемые для инициализации значений полей, должны иметь имя, повторяющее имя поля без префикса 'F'. При компиляции тела метода, написанного на языке PascalScript имена параметров и имена свойств будут распознаваться в соответствии с порядком разбора идентификаторов, как это описано здесь и здесь.
• Имена методов должны представлять собой императивный глагол на английском языке, выражающий смысл того, что метод делает. Имена методов не имеют префикса. Имена методов, используемых для получения значений свойств должны (как члены класса для чтения), должны начинаться со слова Get. Имена методов, используемых для установки значений свойств должны (как члены класса для записи), должны начинаться со слова Set.

  Пример

  Имя Наименование CountMarkSumm Вычислить сумму баллов GetAge Получить значение возраста SetMark Установить значение оценки

• Имена локальных переменных должны начинаться с латинской буквы 'L'.

  Пример

  LMarkSumm (сумма баллов), LObjectCount (количество объектов).

• Имена доменов должны начинаться с латинской буквы 'T'. В именах доменов допустимы пробелы. Рекомендуется к имени домена добавлять слово 'domain' (через пробел), а для обязательных доменов 'required domain' (через пробел) тогда, когда необходимо исключить возможность использования этих доменов в текстах на PascalScript. Первым словом в имени домена-ссылки должно быть имя класса домена. Исключением являются имена доменов, соответствующих простым типам данных без дополнительных ограничений. Имена таких доменов могут повторять имена типов языка PascalScript (Integer, Boolean, Float).

  Пример

  Имя Класс домена Наименование TPrice domain Вещественный домен Цена TWeight required domain Целочисленный домен Вес (обязательный) Boolean Логический Логический TClassMember required domain Ссылка домен Член класса

• Имена элементов перечислений должны иметь префикс из двух или трех символов, идентифицирующий соответствующий домен-перечисление. Префикс записывается строчными буквами. Например,

  Пример

  Имя Наименование для домена TExamKind (вид испытания) ekTest зачет ekExam экзамен ekDifTest дифференцированный зачет для домена TAggregateKind (вид агрегата) agCount количество agSumm сумма agAverage среднее значение

  Настоятельно рекомендуется давать уникальные имена элементов перечислений в пределах всей системы.

Код на языке PascalScript, являющийся частью поставляемого решения, должен быть оформлен в соответствии с изложенными правилами.

Пустые строки могут повысить читабельность путем группирования секций кода, которые логически связаны между собой.

Пробелы, запрещенные к использованию:

• До или после точки "."
• Между именем вызываемого метода и открывающей скобкой "("
• После открывающей скобки "(" или перед закрывающей ")"
• Перед точкой с запятой ";"
• Перед двоеточием ":"
• Перед запятой ","

Двоеточие для всех объявлений переменных не должно содержать перед собой пробелов и иметь один пробел после перед именем типа.

Всегда необходимо использовать два пробела для всех уровней отступа. Другими словами, первый уровень отступает на два пробела, второй на четыре и так далее. Никогда не используйте символы табуляции.

Существует несколько исключений из этого правила. Зарезервированные слова var, begin и end, относящиеся к программному блоку вцелом, всегда должны примыкать к левой границе. Код внутри блока begin..end должен иметь отступ два символа.

Все строки должны быть ограничены 80 столбцами. Строки, длиннее чем 80 столбцов должны быть разделены и перенесены. Все перенесенные строки должны быть выровнены по первой строке и иметь отступ в два символа. Зарезервированное слово begin всегда должно находиться на своей отдельной строке.

Нельзя переносить строки в тех местах, где не допускаются пробелы, например между именем метода и открывающей скобкой. Никогда нельзя помещать зарезервированное слово begin на строку, содержащую другой код.

Все переменные с их типами должны быть объявлены на различных строках.

Простые операторы содержат одну точку с запятой. Если Вам необходимо разделить оператор, то перенесите продолжение оператора на следующую строку с отступом в два пробела.

Пример

1 MyValue := MyValue + (SomeVeryLongStatement / OtherLongStatement);

Составные операторы всегда заканчиваются точкой с запятой.

Пример

1begin 2 MyStatement; 3 MyNext Statement; 4 MyLastStatement; 5end;

Каждое присвоение и каждое выражение должно располагаться на разных строках.

Оператор "if"

1if A < B then DoSomething; 

1if A < B then
  DoSomething;

1  if A < B then begin
2    DoSomething;
3    DoSomethingElse;
4  end else begin
5    DoThis;
6    DoThat;
7  end;

1  if A < B then
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end
6  else
7  begin
8    DoThis;
9    DoThat;
10  end;

Оператор "for"

1  for i := 0 to 10 do begin
2    DoSomething;
3    DoSomethingElse;
4  end;

1  for i := 0 to 10 do
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end;
6
7  for I := 0 to 10 do
8    DoSomething;

Оператор "while"

1  while x < j  do begin
2    DoSomething;
3    DoSomethingElse;
4  end;

1  while x < j do
2  begin
3    DoSomething;
4    DoSomethingElse;
5  end;
6
7  while x < j do
8    Something;

Оператор "repeat..until"

1  repeat
2    x := j;
3    j := UpdateValue;
4  until j > 25;

Оператор "case"

01  case LCode of
02    1, 3:
03      begin
04        Incr := FIncrement + 1;
05        FinalIncr := FIncrement div FLineDiv;
06        Count := FLineDiv;
07      end;
08    2, 4:
09      begin
10        Incr := FPageIncrement;
11        FinalIncr := Incr + 1;
12        Incr := Incr div FPageDiv;
13        Count := FPageDiv;
14      end;
15  else
16    begin
17      Count := 0;
18      Incr := 0;
19      FinalIncr := 0;
20    end;
21  end;

Оператор "try"

01try
02  try
03    EnumItems(CurrentThreadID, LDisable, 0);
04    Result := TaskList;
05  except
06    EnableItems(TaskList);
07    raise;
08  end;
09finally
10  TaskList := SaveList;
11  TaskActive := SaveActive;
12end; 

Системный слой платформы "Мельница данных" предоставляет сторонним системам ряд интерфейсов, дающих возможность обращаться к объектам базы данных и их свойствам, вызывать методы классов и объектов, осуществлять запросы к базе данных, управлять поведением элементов управления и проч.

01  IContext = interface(IDispatch)
02    ['{79847D79-A3BE-408F-B59F-662B91BC6350}']
03    function Handle: Integer;
04    function getName(ID: OleVariant): WideString;
05    function getDescription(ID: OleVariant): WideString;
06    function createDataSet(const TargetClassName: WideString):
07      IContextDataSet;
08    function executeMethod(const ClassName: WideString;
09      const MethodName: WideString;
10      Params: OleVariant): OleVariant;
11    function executeReport(const ClassName: WideString;
12      const TemplateName: WideString;
13      Params: OleVariant): IDispatch;
14    function getPropValue(const ClassName: WideString;
15      const PropName: WideString;
16      const ID: OleVariant): OleVariant;
17    procedure setPropValue(const ClassName: WideString;
18      const PropName: WideString;
19      const ID: OleVariant; Value: OleVariant);
20    function select(const ClassName: WideString;
21      QueryItems: OleVariant): IDispatch;
22    function enumerationItem(ItemIdentifier: OleVariant): WideString;
23    function getClass(const ClassName: WideString): WideString;
24    function createGUID: WideString;
25    procedure processStart(const Description: WideString;
26      ItemCount: Integer);
27    procedure processStep;
28    procedure processStop;
29    function PlaceDataSet(const Range: IDispatch;
30      const DataSet: IContextDataSet;
31      ShiftRows: WordBool; ShiftColumns: WordBool): Integer;
32    procedure DebugString(const Message: WideString);
33    procedure ExportObject(var Document: OleVariant; const ID: WideString;
34      const ClassID: WideString);
35    function callRoutine(const ClassName, RoutineName: WideString;
36      var RetValue: OleVariant; const ScriptPart: OleVariant): WordBool;
37    function getOleObject(const ClassID, AccessibleFileName: WideString): IDispatch;
38    function getResource(const Name: WideString): WideString;
39    function getTempFileName(const Extension: WideString): WideString;
40    function selectVaue(const ClassDomain: WideString;
41      const ExpressionContext: IContextExpressionInfo;
42      var Value: OleVariant): WordBool;
43    procedure raiseManagedException(const ExceptionMessage: WideString);
44    function getCRC(Data: OleVariant): WideString;
45    function downloadData(const Host: WideString; const Url: WideString;
46      const UserName: WideString; const Password: WideString;
47      NegotiateAuth: WordBool; PostData: OleVariant;
48      const PostContentType: WideString; PostDataIsBinary: WordBool;
49      CanCache: WordBool; NewSession: WordBool; TimeOut: Integer): OleVariant;
50    function createBinaryData: IDispatch;
51    function BinaryToBitmap(const Data: IDispatch): IDispatch; safecall;
52    function editValues(const ValuesList: WideString; const Title: WideString;
53      UseTabs: WordBool; HideOKButton: WordBool;
54      const ScriptPart: OleVariant): WordBool;
55    function MsgBox(const Prompt: WideString; Buttons: LongWord;
56      const Title: WideString;
57      const HelpFile: WideString; Context: LongWord): Integer;
58    function ShowMsgBox(const Prompt: WideString; Buttons: LongWord;
59      const Title: WideString;
60      const HelpFile: WideString; Context: LongWord): Integer;
61    function buildNamedFile(const Data: IDispatch; const StoredFileName: WideString;
62                            Propmpt: WordBool; Compress: WordBool): IDispatch;
63    procedure parseNamedFile(const NamedFile: IDispatch; out FileName: OleVariant;
64                             out Data: OleVariant);
65    procedure showView(const ViewName: WideString; Key: OleVariant;
66                       const DetailPropertyName: WideString);
67    procedure showDataSet(const DataSet: ContextDataSet; const Caption: WideString;
68                          ColumnCaptions: OleVariant; ColumnOnChangeHandlers: OleVariant;
69                          TakeActionsFromView: OleVariant);
70    function executeConsoleProcess(const CommandLine: WideString; MaxDuration: Integer;
71                                   const OutputData: OleVariant): Integer;
72    function createRaster: IDispatch;
73    function createZIPArchive: IDispatch;
74    function ConvertExcel(Source: OleVariant; const Format: WideString): IDispatch;
75    property ContextObject: IDispatch;
76    property Language: WideString;
77    property UserName: WideString;
78    property NegotiateAuth: WordBool;
79    property Variable[const Name: WideString; Persistent: WordBool]: OleVariant;
80  end;

Члены интерфейса доступны для использования в скриптах форм задания параметров, а также в отчетах как члены класса передаваемого контекстного объекта.

• Функция Handle возвращает дескриптор главного окна приложения.
• Функция getName возвращает имя объекта по его идентификатору.
• Функция getDescription возвращает наименование объекта по его идентификатору.
• Функция createDataSet создает набор данных, основанный на экземплярах класса, имя которого передано как параметр. Возвращаемый объект реализует интерфейс IContextDataSet.
• Функция executeMethod осуществляет вызов метода с параметрами. Имя класса передается в параметре ClassName, имя вызываемого метода - в параметре MethodName. Если вызываемый метод явяется функцией, то результат ее выполнения возвращается как результат вызова executeMethod. Параметры вызова метода передаются через параметр Params следующим образом:
  • Для методов класса без параметров можно передавать любое значение, например, Null.
  • Для методов класса, имеющих один параметр, значение Params есть значение этого единственного параметра.
  • Для методов класса, имеющих более одного параметра, значение Params есть массив значений параметров.

    Пример

    VBScript, VBA LValue = executeMethod("TObject", "Round", Array(10.24, 1)) JScript LValue = executeMethod("TObject", "Round", new Array(10.24, 1)); Object Pascal LValue := executeMethod('TObject', 'Round', VarArrayOf([10.24, 1]));

  • Для методов экземпляра без параметров значение Params есть идентификатор объекта, для которого вызывается метод.
  • Для методов экземпляра, имеющих параметры, значение Params есть массив значений параметров. При этом первым элементом массива является идентификатор объекта, для которого вызывается метод.

    Пример

    VBScript, VBA executeMethod "TObject", "MergeTo", Array(LOldObject, LNewObject) JScript executeMethod("TObject", "MergeTo", new Array(LOldObject, LNewObject)); Object Pascal executeMethod('TObject', 'MergeTo', VarArrayOf([LOldObject, LNewObject]));

• Функция executeReport осуществляет вызов отчета с параметрами. Имя класса передается в параметре ClassName, имя вызываемого метода - в параметре TemplateName. Параметры вызова передаются в параметре Params аналогично вызову executeMethod. В результате вызова функции возвращается ссылка на рабочую книгу Microsoft Excel, документ Microsoft Word и так далее. Судьба приложения, в рамках которого создан возвращенный объект, остается на усмотрение вызывающей стороны. Если вызывающая сторона предполагает взаимодействие объекта с пользователем, то необходимо обеспечить видимость объекта-приложения (Application.Visible := True;). В противном случае необходимо закрыть приложение после освобождения объекта документа (Application.Quit).
• Функция getPropValue возвращает значение свойства объекта. Имя класса, имя свойства и идентификатор объекта задаются в параметрах.
• Процедура setPropValue устанавливает значение свойства объекта в значение, заданное параметром Value. Для очистки значения можно использовать пустую строку или значение Null. Имя класса, имя свойства и идентификатор объекта задаются в параметрах.
• Функция select возвращает ссылку на XML-документ, содержащий в корневом элементе элементы, представляющие собой записи набора данных на основе класса ClassName (с полями, разнесенными по элементам), определяемого структурой параметра QueryItems.
• Функция enumerationItem возвращает идентификатор элемента перечисления по имени.

  Пример

  VBScript, VBA LItemID = enumerationItem("rsReplicatableMetadata") JScript LItemID = enumerationItem("rsReplicatableMetadata"); Object Pascal LItemID := enumerationItem('rsReplicatableMetadata');

• Функция getClass возвращает идентификатор объекта типа Класс TClass (Классы) по имени.

  Пример

  VBScript, VBA LClassID = getClass("TDocumentType") JScript LClassID = getClass("TDocumentType"); Object Pascal LClassID := getClass('TDocumentType');

• функция createGUID является оберткой над функцией Windows API CoCreateGuid. Возвращает сгенерированный глобально-уникальный идентификатор, преобразованный в строку.
• процедура processStart информирует систему о необходимости показать окно выполнения длительного процесса. Текст, описывающий процесс (он появляется в показываемом окне) задается параметром Description. В случае, если есть возможность определить количество "шагов" процесса, то это количество необходимо передать в параметре ItemCount. В случае, если параметр ItemCount больше нуля, окно выполнения будет снабжено индикатором прогресса. Если значение ItemCount равно нулю, то окно появится без индикатора прогресса. Если значение ItemCount меньше нуля, то решение о появлении окна будет принято системой самостоятельно на основании загрузки процессора и окно процесса не появится, если процесс завершится достаточно быстро.
• процедура processStep информирует систему о завершении очередного "шага" процесса, что найдет отражение в индикаторе прогресса окна выполнения длительного процесса, если таковые случатся.
• процедура processStop информирует систему о завершении длительного процесса, что приведет к закрытию окна выполнения длительного процесса, если таковое случится.
• функция PlaceDataSet осуществляет перенос данных из набора, задаваемого параметром DataSet в некоторое место документа Microsoft Office. Место назначения определяется параметром Range следующим образом:

  Microsoft Word

  Объект Range. По месту расположения этого объекта будет создана таблица (Table), в которой будут размещены данные из набора. Пример PlaceDataSet ThisDocument.Bookmarks("BookMarkName").Range, LDataSet Пример PlaceDataSet Selection.Range, LDataSet Объект Document. В самом начале переданного документа будет создана таблица (Table), в которой будут размещены данные из набора. Пример PlaceDataSet ThisDocument, LDataSet

  Microsoft Excel

  Объект Range. По месту расположения этого объекта (диапазона) будут размещены данные из набора. Если параметр ShiftRows задан и равен True, то заданный диапазон будет расширен вниз на необходимое количество строк, и информация, лежащая ниже переданного диапазона, будет по-прежнему лежать ниже. Если нет, то она (скорее всего) будет затёрта данными набора. Если параметр ShiftColumns задан и равен True, то этот диапазон будет расширен вправо на необходимое количество столбцов, и информация, лежащая правее переданного диапазона, будет по-прежнему лежать правее. Если нет, то она (скорее всего) будет затёрта данными набора. Пример PlaceDataSet Range("C4"), LDataSet Объект WorkSheet. На переданном листе будут размещены данные из набора. Пример PlaceDataSet WorkSheets("HiddenSheet"), LDataSet

  Функция возвращает количество размещенных записей.
• процедура DebugString выводит переданную в качестве аргумента строку в отладочный монитор.
• процедура ExportObject осуществляет экспорт информации об объекте, задаваемом параметром ID в XML-документ, передаваемый в параметре Document. Если объект документа не был создан, то он создается автоматически. Если документ не имеет корневого узла, он будет создан автоматически.

  Пример

  01set LDataSet = CreateDataSet("TSecurityAccount") 02 03LDataSet.AddQueryItem qpWhat, "ID" 04 05set LDocument = CreateObject("Msxml2.DOMDocument.4.0") 'Не обязательно. 06 07while not LDataSet.Eof 08 ExportObject LDocument, LDataSet.Field("ID") 09 LDataSet.Next 10wend 11 12LDocument.save "c:\RolesAndUsers.xml" 13

• Функция callRoutine осуществляет вызов подпрограммы. Параметры будут запрошены у пользователя обычным порядком (с показом формы задания параметров, отработки ее скрипта и т. д.). Имя класса передается в параметре ClassName, имя вызываемой подпрограммы - в параметре RoutineName. Если пользователь разрешил выполнение подпрограммы (либо для выполнения не требовалось разрешения пользователя), функция вернет True, иначе False. Значение, возвращаемое подпрограммой, может быть возвращено через необязательный параметр RetValue. Через значение необязательного параметра ScriptPart можно передать скрипт на языке VBScript, который будет "приклеен" сверху к скрипту формы параметров вызываемой подпрограммы.
• Функция getOleObject возвращает ссылку на Ole-объект с идентификатором класса, переданном в параметре ClassID. Объект создается на основе библиотеки кода, сохраненной в доступном файле с именем, заданным параметром AccessibleFileName. Регистр символов имени доступного файла важен.
• Функция getResource возвращает значение ресурсной строки по имени ресурса (элемента перечислимого домена Resource strings или перевода (объекта класса TLanguageTranslation).

  Пример

  1MsgBox getResource("rssMyErrorMessage")

• Функция getTempFileName возвращает сгенерированное системой имя временного файла с расширением, переданным в параметре Extension.
• Функция selectVaue позволяет пользователю выбрать значение на основе ссылочного домена, имя которого передается в параметре ClassDomain. Вызывающая сторона может реализовать интерфейс IContextExpressionInfo, через который передается информация о контексте вызова для интерпретации выражений условий отбора, и передать ссылку на него через параметр ExpressionContext. Выбранное значение передается в обе стороны через параметр Value. Если пользователь подтвердил выбор значения, функция возвращает значение True, и устанавливает значение параметра Value, равное идентификатору выбранного пользователем объекта. Если пользователь отказался от выбора, функция возвращает значение False.
• Процедура raiseManagedException возбуждает управляемую исключительную ситуацию с сообщением для пользователя, заданным параметром ExceptionMessage.
• Функция getCRC возвращает шестнадцатиричное представление контрольной суммы переданных в параметре Data данных. Параметр может быть
  • Объектом, реализующим интерфейс IBinaryData
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Объектом, реализующим интерфейс IFile объектной модели FileSystemObject
  • Строкой данных. Строка будет преобразована в байты в соответствии с кодировкой UTF-8.
• Функция downloadData осуществляет обращение к указанному ресурсу по протоколу http (https), и возвращает ответ сервера в виде объекта, реализующего интерфейс IBinaryData. Параметр Host определяет http-сервер, параметр Url - Url, к которому будет происходить обращение. Параметры UserName и Password определяют имя пользователя и пароль, если http-сервер требует авторизовать пользователя. Параметр NegotiateAuth устанавливает режим аутентификации. (Basic или Negotiate). Параметры PostData, PostContentType и PostDataIsBinary определяют содержимое тела POST-запроса (если не определено, функция отправит GET-запрос). Параметр CanCache позволяет использовать локальный кеш http-ответов. Параметр NewSession требует принудительного создания новой сессии при вызове функции. Параметр TimeOut определяет максимальное время ожидания ответа в секундах.
• Функция createBinaryData создает пустой объект, реализующий интерфейс IBinaryData.
• Функция BinaryToBitmap  конвертирует переданный графический файл в формат BMP. Объекты во входном и выходном параметрах должны реализовывать интерфейс IBinaryData.
• Функция editValues создает и показывает форму редактирования группы значений. Параметр ValuesList содержит идентификатор объекта класса TObjectList. Этот список содержит ссылки на редактируемые значения (объекты класса TTypedValue), и командные кнопки формы (объекты класса TTypedValueButton). Параметр Title определяет заголовок формы, параметр UseTabs определяет, будут ли показаны закладки на форме редактирования. Параметр HideOKButton позволяет скрыть кнопку "OK" на показываемой форме. Параметр ScriptPart определяет скрипт показываемой формы.

  Пример

  01 LValue1 = executeMethod ("TTypedValue", "CreateStrValue", _ 02 Array("Value1", "Первый параметр", Null, Null, _ 03 "TLongString", Null, Null, Null, Null, Null, "Значение по умолчанию первого параметра")) 04 LValue2 = executeMethod ("TTypedValue", "CreateStrValue", _ 05 Array("Value2", "Второй параметр", Null, Null, _ 06 "TLongString", Null, Null, Null, Null, Null, "Значение по умолчанию второго параметра")) 07 08 LValues = executeMethod("TObjectList", "CreateFromString", _ 09 LValue1 & ";" & LValue2) 10 11 if editValues(LValues, "Введите два строковых значения, друзья", True, False, "") then 12 MsgBox getPropValue("TTypedValue", "StrValue", LValue1) & _ 13 " " & _ 14 getPropValue("TTypedValue", "StrValue", LValue2) 15 end if 16 17 executeMethod "TObject", "Destroy", LValues 18 executeMethod "TObject", "Destroy", LValue1 19 executeMethod "TObject", "Destroy", LValue2 20

  Пример

  01 LScriptPart = "Buttons(""NextButton"").Enabled = ParentForm.NavigatorCanNext" & Chr(10) & _ 02 "Buttons(""PrevButton"").Enabled = ParentForm.NavigatorCanPrevious" 03 04 LValue1 = executeMethod ("TTypedValue", "CreateStrValue", _ 05 Array("Value1", "Первый параметр", Null, Null, "TLongString", Null, Null, Null, Null, Null, _ 06 "Значение по умолчанию первого параметра")) 07 LValue2 = executeMethod ("TTypedValue", "CreateStrValue", _ 08 Array("Value2", "Второй параметр", Null, Null, "TLongString", Null, Null, Null, Null, Null, _ 09 "Значение по умолчанию второго параметра")) 10 11 LNextButton = executeMethod ("TTypedValueButton", "Create", Array("NextButton", "Вперед!", _ 12 Null, Null, Null, Null, 0, Null, Null, _ 13 "ParentForm.NavigatorNext" & Chr(10) & LScriptPart, enumerationItem("scPublic"), 1, Null)) 14 15 LPrevButton = executeMethod ("TTypedValueButton", "Create", Array("PrevButton", "Назад!", _ 16 Null, Null, Null, Null, 1, Null, Null, _ 17 "ParentForm.NavigatorPrevious" & Chr(10) & LScriptPart, enumerationItem("scPublic"), 1, Null)) 18 19 LValues = executeMethod("TObjectList", "CreateFromString", _ 20 LValue1 & ";" & LValue2 & ";" & LNextButton & ";" & LPrevButton) 21 22 if editValues(LValues, "Введите два строковых значения, друзья", True, True, LScriptPart) then 23 MsgBox getPropValue("TTypedValue", "StrValue", LValue1) & _ 24 " " & _ 25 getPropValue("TTypedValue", "StrValue", LValue2) 26 end if 27 28 executeMethod "TObject", "Destroy", LValues 29 executeMethod "TObject", "Destroy", LValue1 30 executeMethod "TObject", "Destroy", LValue2 31 executeMethod "TObject", "Destroy", LNextButton 32 executeMethod "TObject", "Destroy", LPrevButton 33

• Функции MsgBox и ShowMsgBox (это синонимы одной точки входа) полностью аналогичны функции Basic MsgBox по поведению и набору параметров.
• Функция buildNamedFile формирует значение типа "Именованный файл" на основе объекта, реализующего интерфейс IBinaryData (параметр Data) и информации об имени и параметрах именованного файла.
• Процедура parseNamedFile разбирает значение типа "Именованный файл". Выходной параметр FileName будет содержать сохраненное имя файла, выходной параметр Data - объект, реализующего интерфейс IBinaryData и содержащий данные именованного файла.
• Свойство ContextObject позволяет получить ссылку на этот же самый контекстный объект.
• Свойство UserName позволяет получить логин текущего пользователя.
• Свойство NegotiateAuth позволяет получить признак доменной аутентификации пользователя.
• Свойство Language позволяет получать и устанавливать текущий языковой контекст, в котором будут выполняться обращения к БД. Значение свойства либо пустая строка (используется язык БД по умолчанию), либо имя объекта класса TLanguage
• Свойство Variable позволяет сохранять и получать произвольные значения, которые могут хранится постоянно (в реестре) или только в текущем сеансе, в зависимости от параметра Persistent.

  Пример

  1'сохранить на время текущего сеанса значение в переменную с именем SameVariableName 2Variable("SameVariableName", False) = "Value" 3 4'получить значение переменной с именем SameVariableName хранимой в текущем сеансе 5LValue = Variable("SameVariableName", False) 6

• Процедура showView осуществляет показ в модальном окне представления с именем ViewName. С помощью параметров DetailPropertyName и Key можно наложить на представление дополнительное условие отбора.

01  IContextDataSet = interface(IDispatch)
02    ['{466F3AF7-F899-4BC1-869D-1B17DCB86159}']
03    procedure AddQueryItem(Part: TQueryPart; const Name: WideString;
04      Value: OleVariant; Special: TQuerySpecial; Context: OleVariant);
05    function Eof: WordBool;
06    function Field(const Name: WideString): OleVariant;
07    function FieldCount: Integer;
08    function FieldName(Index: Integer): WideString;
09    procedure Next;
10  end;

Интерфейс предоставляет возможности формирования и выполнения запросов к базе данных с целью получения свойств объектов определенного класса, предоставляет доступ к объекту набора данных. Работа с объектом, реализующим интерфейс IContextDataSet заключается в формировании структуры набора данных и последующих обращениях к ним.

• Процедура AddQueryItem добавляет элемент набора данных. Элементы могут добавляться в любом порядке до первого обращения к данным набора. Символические имена всех предопределенных для параметров этого метода констант являются членами интерфейса IConstants.
  • часть запроса определяется параметром Part, который может принимать одно из следующих предопределенных значений:

    Символическое имя	Числовое значение	Описание
    qpWhat	0	Добавляет поле (столбец), определяемое параметром Name, к результирующему набору данных. Параметр Value игнорируется.
    qpWhere	1	Определяет условие, налагаемое на свойства объектов класса, передаваемое остальными параметрами.
    qpOrder	2	Определяет порядок сортировки записей результирующего набора данных. Параметр Value игнорируется.
    qpGroup	3	Определяет, что записи результирующего набора данных будут сгруппированы по столбцу, переданному в параметре Name. Параметры Value и Special игнорируются.

  • параметр Name должен быть именем свойства класса, на котором основан набор данных, либо зарезервированным словом "ID" (без кавычек).
  • параметр Value (необязательный) определяет условия отбора, накладываемые на свойство, заданное параметром Name. Имеет смысл только если значение параметра Part равно qpWhere. Условие задается посредством строки, интерпретируемой следующим образом:
    • строка разделяется на части посредством системного разделителя
    • каждая часть интерпретируется самостоятельно, и эти части объединяются логическим "ИЛИ"
    • при интерпретации каждой части проверяются следующие условия:

      *	проверка значения на непустоту (IS NOT NULL)
      !*	проверка значения на пустоту (IS NULL)
      начинается с символов '<=', '<', '>=', '>'	проверка соответствующего отношения между значением свойства, переданного параметром Name и оставшейся частью строки
      включает в себя символы '*' и/или '?'	проверка соответствия значения шаблону, в котором знак '?' соответствует одному любому символу, а знак '*' - любому количеству любых символов
      начинается с символа '!'	символ '!' означает отрицание условия, переданного оставшейся частью строки
      представляет собой строку в апострофах (одиночных кавычках)	содержание строки не анализируется по приведенным выше условиям
      любая другая строка	проверка равенства значения свойства, переданного параметром Name значению, переданному строкой

  • параметр Special (необязательный) обеспечивает дополнительное поведение набора данных (если параметр Special используется, необходимо использовать и параметр Value, можно передавать пустую строку):

    Символическое имя	Числовое значение	Описание
    qsNone	0	Параметр не используется. Значение по умолчанию.
    qsDescending	7	Используется при значении qpOrder параметра Part. В этом случае производится сортировка по убыванию.
    qsCount	8	Используется при значении qpWhat параметра Part. Определяют тип агрегации по свойству, заданному параметром Name.
    qsSum	9
    qsMin	10
    qsMax	11
    qsAverage	12
    qsFunction	22	Используется для включения в запрос вызова функции. Используется при значении qpWhat параметра Part.

  • параметр Context (необязательный) определяет дополнительные параметры элемента запроса.

  Пример

  01'включить в набор данных свойство Name 02LDataSet.AddQueryItem 0, "Name" 03'включить в набор данных среднее значение цены 04LDataSet.AddQueryItem 0, "Price", "", 12 05'включить в набор данных идентификатор объекта 06LDataSet.AddQueryItem 0, "ID" 07'включить в набор данных вызов функции. В поле IsCompany будет значение True, если объект является организацией 08LDataSet.AddQueryItem 0, "IsCompany", "TObject.IsInstanceOf", 22, Array(getClass("TCompany")) 09'наложить на набор данных условие 10LDataSet.AddQueryItem 1, "Organization", "фирма Елочка" 11

  Пример

  1LDataSet.AddQueryItem 0, "Organization" '(1) 2LDataSet.AddQueryItem 0, "SalesCount", "", "9" '(2) 3LDataSet.AddQueryItem 1, "SaleDate", ">10.09.2005" '(3) 4LDataSet.AddQueryItem 2, "Organization" '(4) 5LDataSet.AddQueryItem 3, "Organization" '(5) 6 Производится отбор из класса, описывающего число продаж некоего продукта различными организациями. При этом в набор данных включаются колонки "Organization" (строка 1) и "SalesCount" (строка 2). При этом будет произведена группировка по свойству "Organization" (строка 5) (что гарантирует вхождение каждой организации в результирующий набор данных не более одного раза). Набор данных будет отсортирован по организации (строка 4). При этом в колонке "SalesCount" будет сумма (строка 2) всех продаж, осуществленных каждой организацией после 10.09.2005 (строка 3).

• Функция FieldCount возвращает количество полей (столбцов) набора данных.
• Функция FieldName возвращает имя поля (столбца) с номером, переданным в параметре Index.
• Функция Field возвращает значение, содержащееся в поле с именем или индексом, заданным параметром Name (строкового типа) текущей записи набора данных. При первом обращении к набору данных текущей является первая запись. Если параметр определяет номер, то поиск поля производится по номеру. Если имя, то по имени.
• Процедура Next осуществляет переход к следующей записи набора данных.
• Функция Eof возвращает False, если текущая запись набора данных существует; в случаях, если набор данных пустой, или при помощи метода Next достигнут конец набора данных, возвращает True.

  Пример

  01If LDataSet.Eof then 02 'набор данных пуст. Ничего не отобрано. 03Else 04 While Not LDataSet.Eof 05 'работа с очередной отобранной записью 06 Cells(LRow, 1).Value = LDataSet.Field("Name") 07 Cells(LRow, 2).Value = LDataSet.Field("Description") 08 Cells(LRow, 2).Value = LDataSet.Field("Count") 09 'переход к следующей записи 10 LDataSet.Next 11 LRow = LRow + 1 12 Wend 13End If 14

01  IConstants = interface(IDispatch)
02    ['{7E7B2D66-5E7C-496A-AE06-EFC485007500}']
03    property qpWhat: Integer;
04    property qpWhere: Integer;
05    property qpOrder: Integer;
06    property qpGroup: Integer;
07    property qpHaving: Integer;
08    property qsNone: Integer;
09    property qsObjectID: Integer;
10    property qsParentID: Integer;
11    property qsHasChildren: Integer;
12    property qsFilterCondition: Integer;
13    property qsUplink: Integer;
14    property qsRootOnly: Integer;
15    property qsDescending: Integer;
16    property qsCount: Integer;
17    property qsSum: Integer;
18    property qsMin: Integer;
19    property qsMax: Integer;
20    property qsAverage: Integer;
21    property qsMasterLink: Integer;
22    property qsSelectedOnly: Integer;
23  end;

Интерфейс предоставляет символические имена констант, необходимых для работы с объектом, реализующим интерфейс IContextDataSet.

01  IFormContext = interface(IDispatch)
02    ['{1944F1C8-CAEA-4CF9-9A4D-CE3423508FF7}']
03    function ChangedControl: OleVariant;
04    function ControlCount: Integer;
05    function ButtonCount: Integer;
06    function ID: WideString;
07    procedure Cancel;
08    function ControlExists(const Name: WideString): WordBool;
09    function ChangedControlName: WideString;
10    function ParentForm: OleVariant;
11    function RoutineID: WideString;
12    procedure PreInitControl(const Name: WideString; Value: OleVariant);
13    procedure NavigatorNext;
14    procedure NavigatorPrevious;
15    function NavigatorCanNext: WordBool;
16    function NavigatorCanPrevious: WordBool;
17    procedure RefreshView(RefreshAll: WordBool);
18    function ExpressionContextValue(const Name: WideString): OleVariant; safecall;
19    property Controls[Name: OleVariant]: IControl;
20    property Buttons[Name: OleVariant]: IButton;
21    property Enabled: WordBool;
22  end;

Представляет собой модель формы задания параметров. Члены интерфейса доступны для использования в скриптах форм задания параметров.

• Функция ChangedControl возвращает объект, реализующий интерфейс IControl, соответствующий элементу управления, изменение которого вызвало исполнение скрипта формы параметров. Если выполнение скрипта вызвано инициализацией формы задания параметров, то значение функции - Empty. Пустоту значения можно проверить с помощью функции VBScript IsEmpty.
• Функция ControlCount возвращает число элементов управления на форме параметров, как видимых так и невидимых.
• Функция ButtonCount возвращает число командных кнопок на форме параметров, как видимых так и невидимых.
• Функция ID возвращает значение идентификатора объекта, для которого вызван метод. Для методов класса возвращает пустое значение.
• Функция ControlExists возвращает True, если элемент управления с именем Name существует на форме, и, соответственно, существует соответствующий параметр.
• Функция ChangedControlName возвращает имя элемента управления, изменение которого вызвало исполнение скрипта формы параметров. Если выполнение скрипта вызвано инициализацией формы задания параметров, то значение функции - пустая строка.
• Процедура Cancel прекращет работу формы задания параметров. Форма закрывается, выполнение действия блокируется.
• Функция ParentForm возвращает ссылку на контекст родительской формы в цепочке вызовов. В контексте первой формы (вызванной с грида немодальной формы) возвращает пустое значение (Empty). Пустоту значения можно проверить с помощью функции VBScript IsEmpty.
• Функция RoutineID возвращает идентификатор подпрограммы, для которой вызвана форма.
• Процедура PreInitControl имитирует предварительную инициализацию элемента управления с именем Name значением, переданным в параметре Value. Сам элемент управления при этом будет скрыт, и не будет показан вплоть до следующего вызова формы пользователем.
• Процедура NavigatorNext выполняет переход к следующему объекту набора данных, для которого показывается форма параметров.
• Процедура NavigatorPrevious выполняет переход к предыдущему объекту набора данных, для которого показывается форма параметров.
• Функция NavigatorCanNext возвращает True, если возможен переход к следующему объекту набора данных, для которого показывается форма параметров.
• Функция NavigatorCanPrevious возвращает True, если возможен переход к предыдущему объекту набора данных, для которого показывается форма параметров.
• Процедура RefreshView обновляет набор данных, для которого показывается форма параметров. Если значение параметра RefreshAll равно True, то будет обновлен весь набор, если False, то только выделенные записи.
• Свойство Controls позволяет обращаться к элементам управления на форме задания параметров, их свойствам и методам. Каждый элемент управления реализует интерфейс IControl. В параметре Name (строкового типа)может быть передано как имя элемента управления, так и его индекс (в этом случае индекс должен быть передан как строка). Имена элементов управления на форме параметров соответствуют именам параметров подпрограммы (метода, отчета, etc).
• Свойство Buttons позволяет обращаться к командным кнопкам на форме задания параметров, их свойствам и методам. Каждая командная кнопка реализует интерфейс IButton. В параметре Name (строкового типа)может быть передано как имя командной кнопки, так и ее индекс (в этом случае индекс должен быть передан как строка).
• Свойство Enabled позволяет получать и устанавливать доступность кнопки OK на форме задания параметров. Если на форме есть невалидные (имеющие недопустимые значения) элементы управления, значение свойства всегда равно False и устанавливать его в явном виде в True не рекомендуется. Для учета дополнительного условия рекомендуется использовать следующую конструкцию: Enabled = Enabled and (Controls("SalesCount").Value > 10)
• Функция ExpressionContextValue возвращает значение переменной контекста с именем Name, которая используется для интeрпретации выражений условий отбора на форме.

01  IControl = interface(IDispatch)
02    ['{0662001F-D3D5-4F28-98AC-9B499F70E856}']
03    function Name: WideString;
04    procedure SetHint(const Value: WideString);
05    procedure RefreshLinkedView;
06    property Value: OleVariant;
07    property ReadOnly: WordBool;
08    property IsValid: WordBool;
09    property IsEmpty: WordBool;
10  end;

Моделирует элемент управления на форме задания параметров. Позволяет управлять поведением элементов управления на форме.

• Функция Name возвращает имя элемента управления; имена элементов управления всегда совпадают с именамим соответствующих параметров подпрограммы.
• Процедура SetHint устанавливает текст всплывающей подсказки элемента управления. Всплывыющая подсказка показывается только если значение элемента управления недопустимо (свойство IsValid равно False).
• Процедура RefreshLinkedView обновит связанное с элементом управления представление.
• Свойство Value позволяет получать и устанавливать значение, введенное в элемент управления.
• Свойство ReadOnly позволяет получать и устанавливать доступность элемента управления для записи; при значении True элемент управления не доступен для записи и отображается неактивным.
• Свойство IsValid позволяет получать и устанавливать "валидность" элемента управления; по умолчанию валидным элемент управления является в том случае, если введенное в него значение соответствует домену соответствующего параметра подпрограммы с учетом наложенного на него условия отбора.
• Свойство IsEmpty имеет значение True в случае, если в элемент управления не введено никакого значения (элемент управления пустой), в противном случае имеет значение False.

1  IButton = interface(IDispatch)
2    ['{1618406F-B9F1-4C5F-BC35-C2A154837CA9}']
3    function Name: WideString; safecall;
4    procedure Click; safecall;
5    property Enabled: WordBool;
6  end;

Моделирует командную кнопку на форме задания параметров. Позволяет управлять поведением кнопки на форме.

• Функция Name возвращает имя кнопки.
• Процедура Click эмулирует нажатие на кнопку.
• Свойство Enabled позволяет получать и устанавливать доступность кнопки.

01  IBinaryData = interface(IDispatch)
02    ['{8A9F7CB3-230A-4048-B938-852CBF6ADB2D}']
03    procedure Load(const Src: OleVariant);
04    procedure Append(const Src: OleVariant);
05    procedure Save(const Dst: OleVariant);
06    function Size: Cardinal;
07    function ToString(Encoding: WideString): WideString;
08    procedure FromString(Data: OleVariant);
09    procedure AppendString(Data: OleVariant);
10    function ToBase64: WideString;
11    procedure FromBase64(Data: OleVariant);

Представляет набор двоичных данных.

• Процедура Load загружает двоичные данные из переданного источника. Источник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Процедура Append добавляет двоичные данные из переданного источника. Источник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Процедура Save сохраняет двоичные данные в переданный приемник. Приемник может быть
  • Объектом, реализующим интерфейс IStream
  • Объектом, реализующим интерфейс ISequentialStream
  • Строкой, содержащей имя файла
• Функция ToString переводит данные в строку. Байты, содержашиеся в объекте, будут рассматриваться как содержащие строку в кодировке, заданной параметром Encoding. По умолчанию используется кодировка UTF-8
• Процедура FromString загружает данные из строки, переданной в параметре Data, перекодировав ее в кодировку UTF-8
• Процедура AppendString  добавляет данные из строки, переданной в параметре Data, перекодировав ее в кодировку UTF-8
• Функция ToBase64 возвращает строку, полученную путем кодирования в формат Base64, данных содержащихся в объекте
• Процедура FromBase64 загружает данные из строки, переданной в параметре Data, раскодировав ее из формата Base64

1  IContextExpressionInfo = interface(IUnknown)
2    ['{C7518427-B515-4EB4-B698-88656E6CBF7C}']
3    function Count: Integer;
4    function ItemName(Index: Integer): WideString;
5    function ItemValue(Index: Integer): OleVariant;
6    function ItemDomain(Index: Integer): OleVariant;
7  end;

Через реализацию этого интерфейса передаются значения контекстных переменных при обращении к функции selectValueинтерфейса IContext.

• Функция Count возвращает количество используемых контекстных переменных. Нумерация контекстных переменных начинается с нуля.
• Функция ItemName возвращает имя контекстной переменной c номером, переданным в параметре Index.
• Функция ItemValue возвращает значение контекстной переменной c номером, переданным в параметре Index.
• Функция ItemDomain возвращает имя домена контекстной переменной c номером, переданным в параметре Index.

1  IExceptionHandler = interface(IDispatch)
2    ['{3C3C7202-5ED5-4EB4-9CDD-A929C18CA8BD}']
3    procedure HandleException(ContextObject: OleVariant;
4      const Message: WideString;
5      const ExtentedInfo: WideString);
6  end;

Реализовав интерфейс IExceptionHandler разработчик решений может получать уведомления о возникающих при работе исключительных ситуациях. При возникновении исключения объект, реализующий интерфейс, получит текст сообщения об ошибке и расширенную информацию.

Для реализации интерфеса используется библиотека hse.tlb, входящая в состав поставки решения. Перед началом работы с ней, необходимо зарегистрировать ее в операционной системе.

Для установки настроек интерфейса необходимо открыть Системную форму раздела АДМИНИСТРАТОРУ, перейти на вкладку  Настройки и в столбце "Заголовок закладки" установить фильтр "Обработка ошибок".

После этого в качестве значения Идентификатора класса установить "IExceptionHandler" без кавычек.

Для Библиотеки кода указать значение HSE.tlb

Используется для репрезентации "вещественного вообще" в функциях библиотеки времени исполнения либо в тех случаях, когда нельзя сделать предположений о физическом смысле хранимого вещественного значения.

Используется для описания больших двоичных объектов, содержимое которых никак не интерпретируется системой.

Используется для хранения текстовых комментариев, описаний произвольной длины. Значение интерпретируется как текст.

Используется для хранения в базе рабочих книг Microsoft Excel, например, шаблонов отчетов Excel

Используется для хранения содержимого доступного файла.

Содержит выражение на языке PascalScript, определяющее условие отбора.

Используется для хранения изображений-иконок визуальных элементов системы.

Содержит выражение на языке PascalScript, определяющее логику работы встраиваемого выражения.

Содержит исходный текст метода на языке PascalScript.

Содержит скрипт формы задания параметров на языке VBScript.

Используется для хранения в базе документов Microsoft Word, например, шаблонов отчетов Word

Используется для хранения в базе данных скриптов xslt-преобразований, например, шаблонов отчетов XSLT.

Используется для репрезентации "времени вообще" в функциях библиотеки времени исполнения либо в тех случаях, когда нельзя сделать предположений о физическом смысле хранимого значения времени.

Используется для репрезентации "даты вообще" в функциях библиотеки времени исполнения либо в тех случаях, когда нельзя сделать предположений о физическом смысле хранимой даты.

Используется для репрезентации "даты со временем вообще" в функциях библиотеки времени исполнения, либо в тех случаях, когда нельзя сделать предположений о физическом смысле хранимой даты со временем.

Используется для репрезентации "даты со временем вообще" в функциях библиотеки времени исполнения, либо в тех случаях, когда нельзя сделать предположений о физическом смысле хранимой даты со временем.

Домен используется для отбора подпрограмм, по которым можно построить программируемое действие. Домен отбирает только те подпрограммы, которые принадлежат к классу, на котором основано представление, в которое включается (включено) действие, к его предкам и его потомкам в иерархии наследования. Доступ к потомкам необходим, чтобы обеспечить возможность создания объектов конечных неабстрактных бизнес-классов из представления, обеспечивающего доступ к объектам абстрактного класса.

Использование этого домена в прикладных решениях запрещено.

Домен используется дочерними классами групп запретов.

Домен отбирает свойства класса, по которому строится запрет на свойство, либо его предков.

Использование этого домена в прикладных решениях запрещено.

Домен отбирает подпрограммы класса, по которому строится запрет на свойство, либо его предков.

Использование этого домена в прикладных решениях запрещено.

Объекты отбираются по следующему условию:

1BannedClass.HasAsParent(Self.Master)
  

Используется для задания необязательной ссылки на класс.

Используется для задания обязательной каскадной ссылки на класс в объектах-запрещениях. Удаление классов должно приводить к удалению связанных с ними запрещений.

Используется для задания обязательной ссылки на класс.

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

Использование этого домена в прикладных решениях запрещено.

Домен отбирает свойства класса, на котором основано представление, или его предков, имеющие тип Цвет строки таблицы.

При необходимости цветовой индикации состояний объектов в таблицах данных, необходимо объявить свойство соответствующего типа и указать его в представлении.

Использование этого домена в прикладных решениях запрещено.

Домен отбирает свойства класса, на котором основано представление, или его предков.

При необходимости цветовой индикации состояний объектов в таблицах данных, необходимо объявить свойство соответствующего типа и указать его в представлении.

Использование этого домена в прикладных решениях запрещено.

Домен отбирает свойства класса, на котором основано представление, или его предков для организации связи между представлениями.

Использование этого домена в прикладных решениях запрещено.

Используется для задания необязательной ссылки на домен.

Используется для задания обязательной ссылки на домен.

Используется для задания обязательной ссылки на форму.

Используется для задания ссылки на представление формы.

Использование этого домена в прикладных решениях не рекомендуется.

Домен отбирает члены класса, которые

• либо являются свойствами того же класса, которому принадлежит родительский метод параметра, либо его предков, домен которых совпадает по классу с доменом параметра
• либо являются функциями того же класса, которому принадлежит родительский метод параметра, либо его предков, домен результата которых совпадает по классу с доменом параметра

Использование этого домена в прикладных решениях запрещено.

Используется для задания каскадной ссылки на список объектов. Списки могут использоваться в тех случаях, в которых необходимо передавать набор объектов.

Домен отбирает объекты, которые принадлежат к тому классу, который объявлен классом-мастером класса объекта.

Использование этого домена в прикладных решениях запрещено.

Этот домен используется в объявлении свойства TObject.Master, поэтому значение его сделано обязательным: в тех случаях, когда cвойство TObject.Master (Мастер) имеет смысл (для объектов, инкапсулированных в другие объекты), значение свойства обязательно.

Домен отбирает объекты, которые принадлежат к тому классу, который объявлен классом-мастером класса объекта.

Использование этого домена в прикладных решениях запрещено.

Этот домен используется в объявлении поля TObject.FMaster (Мастер), поэтому значение его сделано необязательным: объектах, не инкапсулированных в другие классы значение поля обязано оставаться пустым.

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

Использование этого домена в прикладных решениях запрещено.

Объект отбирает объекты, включенные в тот же объект, что и текущий (либо они оба не включены ни в какой), и класс которых совпадает либо является родителем класса текущего объекта.

Использование этого домена в прикладных решениях запрещено.

Домен определяет необязательную ссылку на объект системы. Используется там, где нельзя сделать предположения о классе передаваемого объекта.

Домен определяет обязательную ссылку на настройку системы и используется значениями настроек.

Использование этого домена в прикладных решениях запрещено.

Домен определяет ссылку на значение настройки системы.

Домен отбирает объекты, которые могуть быть родителем объекта в иерархии.

Использование этого домена в прикладных решениях запрещено. Там, где это необходимо, используйте специализированные домены.

Домен отбирает члены класса, которые

• либо являются полями того же класса, которому принадлежит свойство, либо того, ссылкой на который является родительское свойство, либо его предков, домен которых совпадает по классу с доменом свойства
• либо являются функциями того же класса, которому принадлежит свойство, либо того, ссылкой на который является родительское свойство, либо его предков, домен результата которых совпадает по классу с доменом свойства
• либо являются встраиваемыми выражениями того же класса, которому принадлежит свойство, либо того, ссылкой на который является родительское свойство, либо его предков, домен результата которых совпадает по классу с доменом свойства

Использование этого домена в прикладных решениях запрещено.

Используется для задания необязательной каскадной ссылки на роль безопасности.

Используется для задания обязательной ссылки на роль безопасности.

Домен используется для организации ссылки на логическую базу данных Системы.

Использование этого домена в прикладных решениях запрещено.

Используется для задания необязательной каскадной ссылки на пользователя Системы.

Используется для задания обязательной ссылки на пользователя.

Домен отбирает те представления, которые основаны на классе, на который указывает ссылочный домен, либо на его предков.

Использование этого домена в прикладных решениях запрещено.

Домен используется для постороения иерархии представлений форм и действий, основанных на представлении.

Использование этого домена в прикладных решениях запрещено.

Используется для задания обязательной ссылки на визуальную группу.

Отбирает подпрограммы, являющиеся методами класса, для использования в элементах визуальных групп.

Использование этого домена в прикладных решениях запрещено.

Домен отбирает члены класса, которые

• либо являются полями того же класса, которому принадлежит свойство, либо того, ссылкой на который является родительское свойство, либо его предков, домен которых совпадает по классу с доменом свойства
• либо являются процедурами с одним параметром того же класса, которому принадлежит свойство, либо того, ссылкой на который является родительское свойство, либо его предков, домен результата которых совпадает по классу с доменом свойства

Использование этого домена в прикладных решениях запрещено.

Класс предназначен для хранения (двоичных) именованных (cвойство TObject.Name (Имя)) файлов внутри Системы. Содержимое этих файлов используется Системой в качестве источника статичных данных (картинок, стилевых таблиц, скриптовых библиотек, etc), доступных по протоколу http внутри отчета XSLT и для хранения библиотек кода, содержащих логику работы методов Ole-объекта. Разработчик решения вправе распорядится доступными файлами по своему усмотрению.

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
FileData (Данные файла)	TFileContent (Содержимое файлов)		Доступен

Используется для хранения значений свойства TAccessibleFile.FileData (Данные файла).

Для чтения и записи свойства используется поле TAccessibleFile.FFileData (Данные файла) .

Это свойство определяет содержимое доступного файла.

Объекты класса моделируют элементы контектсного меню представления. Иерархия элементов контектсного меню отображается на иерахию объектов класса.

Сам по себе объект класса TAction определяет положение и поведение соответствующего пункта контекстного меню, кроме ассоциированного с пуктом действия. Для спецификации этого действия существуют классы-наследники TAction: класс TRoutineAction (Программируемое действие) и класс TViewAction (Действие-представление). Таким образом, объекты собственно класса TAction создаются на месте родительских пунктов контекстного меню, раскрывающихся, содержащих . Несмотря на то, что класс не является абстратным в строгом смылсле этого слова, ни одного объекта этого класса в системных метаданных нет в силу простоты структуры контекстного меню системных представлений. Разработчик решений не ограничен в создании и использовании объектов этого класса. Никаких общих рекомендаций тут быть не может, единственное, что можно утверждать - что контекстное меню должно быть удобным и в достижении этой цели можно организовывать требуемую иерархическую структуру.

Пример

На основе иерархии действий, показанной на рисунке (в таблице отображен фактический класс каждого объекта) построено следующее контекстное меню:

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
Position (Позиция)	TPosition (Позиция)		Доступен	GetNextPos (Следующая позиция)
Shortcut (Горячая клавиша)	TShortcut (Горячие клавиши)		Доступен
Separated (Отделено)	Boolean (Обычное логическое)		Доступен
Default (По умолчанию)	Boolean (Обычное логическое)		Доступен

Используется для хранения значений свойства TAction.Default (По умолчанию).

Используется для хранения значений свойства TAction.Position (Позиция).

Используется для хранения значений свойства TAction.Separated (Отделено).

Используется для хранения значений свойства TAction.Shortcut (Горячая клавиша).

Для чтения и записи свойства используется поле TAction.FDefault (По умолчанию) .

Действие с установленным значением этого свойства будет отображаться в контекстном меню жирным шрифтом и вызываться при двойном щелчке мышью по соответствующей таблице данных.

Пример

Для чтения и записи свойства используется поле TAction.FPosition (Позиция) .

Действия сортируются в пределах уровня для построения контекстного меню в порядке возрастания этого своства.

Для чтения и записи свойства используется поле TAction.FSeparated (Отделено) .

После пункта меню, соответствующего действию с установленным свойством, будет отображен разделитель. Если пункт меню - последний, то разделитель не будет отображен.

Пример

Для чтения и записи свойства используется поле TAction.FShortcut (Горячая клавиша) .

Горячая клавиша определяет связь между нажатием сочетания клавиш на клавиатуре и действием, ассоциированным с пунктом меню. Тест, описывающий горячую клавишу, располагается справа в контекстном меню для тех действий, для которых горячая клавиша назначена.

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Master (Мастер)	TObject domain (Объект)		Доступен	Master (Мастер)
Parent (Родитель)	TParent domain (Родитель объекта)		Доступен	Parent (Родитель)

Используется для инициализации значения параметра Position (Позиция) метода TAction.Create (Конструктор действия). Вычисляет следующую позицию добавляемого действия.

• TBanGroupAccess (Доступ к группам запретов)
• TBanGroupItem (Элементы группы запретов)
• TClassBan (Запрет на класс)
• TRoutineBan (Запрет на подпрограмму)
• TPropertyBan (Запрет на свойство)

Объекты класса определяют группы запретов. Запреты на классы, свойства и подпрограммы объединяются разработчиком в функциональные группы, являющиеся группами запретов. В дальнейшем эти группы ассоциируются с конкретными ролями безопасности.

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт

Для чтения значения свойства используется функция TBanGroup.GetIsAccessible (Доступна) . Свойство доступно только для чтения.

Свойство определяет, ассоциирована ли группа запретов с текущим пользователем, напрямую или через вхождение пользователя в роль.

Возвращает значение типа Boolean (Обычное логическое) .

Используется для вычисления значений свойства TBanGroup.IsAccessible (Доступна).

Объекты класса определяют связь между родительской группой запретов и ролью безопасности.

Имя и наименование объекта полностью определяются другими свойствами, и запрещены для изменения.

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)		Скрыт
Description (Наименование)	TObjectDescription (Наименования)		Скрыт
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Группа запретов)	TBanGroup domain (Группа запретов)		Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
SecurityAccount (Роль безопасности)	TSecurityAccount required domain (Роль безопасности (обязательно))		Доступен	SecurityAccount (Роль безопасности)

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)		Скрыт
Description (Наименование)	TObjectDescription (Наименования)		Скрыт
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
Required (Обязательно для заполнения)	Boolean (Обычное логическое)	Унаследован	Доступен
BlobSubtype (Подтип)	TBlobSubtype (Подтип)		Доступен
Extension (Расширение)	TFileExtension (Расширение имени файла)		Доступен

Используется для хранения значений свойства TBlobDomain.BlobSubtype (Подтип)
.

Используется для хранения значений свойства TBlobDomain.Extension (Расширение)
.

Для чтения и записи свойства используется поле TBlobDomain.FBlobSubtype (Подтип) .

Для чтения и записи свойства используется поле TBlobDomain.FExtension (Расширение имени) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
Required (Обязательно для заполнения)	Boolean (Обычное логическое)	Унаследован	Доступен
TrueValue (Значение "Истина")	TObjectName (Имена)		Доступен
FalseValue (Значение "Ложь")	TObjectName (Имена)		Доступен

Используется для хранения значений свойства TBooleanDomain.FalseValue (Значение "Ложь")
.

Используется для хранения значений свойства TBooleanDomain.TrueValue (Значение "Истина")
.

Для чтения и записи свойства используется поле TBooleanDomain.FFalseValue (Значение "Ложь") .

Для чтения и записи свойства используется поле TBooleanDomain.FTrueValue (Значение "Истина") .

• TClassMember (Члены класса)
• TField (Поля)
• TProperty (Свойства)
• TMethod (Методы)
• TXSLTTemplate (Шаблоны отчетов XSLT)
• TExcelTemplate (Шаблоны отчетов Excel)
• TRoutine (Подпрограмма)
• TOleObjectMethod (Метод Ole-объекта)
• TInlineExpression (Встраиваемое выражение)
• TWordTemplate (Шаблоны отчетов Word)

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
IsHierarhical (Является иерархическим)	Boolean (Обычное логическое)		Доступен
MasterClass (Класс-мастер)	TClass domain (Класс)		Доступен
ReplicationStatus (Статус репликации)	TReplicationStatus (Статус репликации)		Доступен
SecurityModel (Модель безопасности)	TSecurityModel (Модели безопасности)		Доступен
UnNamed (Неименованный)	Boolean (Обычное логическое)		Доступен
NameExpression (Выражение имени объекта)	TInlineExpressionText (Текст выражения)		Доступен
DescriptionExpression (Выражение наименования объекта)	TInlineExpressionText (Текст выражения)		Доступен
CreateConstructor (Создать конструктор)	Boolean (Обычное логическое)		Доступен

Используется для хранения значений свойства TClass.DescriptionExpression (Выражение наименования объекта)
.

Используется для хранения значений свойства TClass.IsHierarhical (Является иерархическим)
.

Используется для хранения значений свойств:
TClass.MasterClass (Класс-мастер)
TView.ShownClassMasterClass (Класс-мастер показываемого)
.

Используется для хранения значений свойства TClass.NameExpression (Выражение имени объекта)
.

Используется для хранения значений свойств:
TClass.ReplicationStatus (Статус репликации)
TObject.ReplicationStatus (Статус репликации)
TView.ShownClassReplicationStatus (Статус репликации класса)
.

Используется для хранения значений свойства TClass.SecurityModel (Модель безопасности)
.

Используется для хранения значений свойства TClass.UnNamed (Неименованный)
.

Для чтения и записи свойства используется поле TClass.FDescriptionExpression (Выражение наименования объекта) .

Для чтения значения свойства используется поле TClass.FIsHierarhical (Является иерархическим) .

Для чтения значения свойства используется поле TClass.FMasterClass (Класс-мастер) .

Для чтения и записи свойства используется поле TClass.FNameExpression (Выражение имени объекта) .

Для чтения и записи свойства используется поле TClass.FReplicationStatus (Статус репликации) .

Для чтения и записи свойства используется поле TClass.FSecurityModel (Модель безопасности) .

Для чтения и записи свойства используется поле TClass.FUnNamed (Неименованный) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Scope (Область видимости)	TScope (Область видимости)		Доступен

Возвращает значение типа TList domain (Список объектов) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Scope (Область видимости)	TScope (Область видимости)		Доступен

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Scope (Область видимости)	TScope (Область видимости)		Доступен

Возвращает значение типа TList domain (Список объектов) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Scope (Область видимости)	TScope (Область видимости)		Доступен

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
ShowFields (Показывать поля)	Boolean (Обычное логическое)		Доступен
ShowMethods (Показывать методы)	Boolean (Обычное логическое)		Доступен
ShowProperties (Показывать свойства)	Boolean (Обычное логическое)		Доступен
ShowParameters (Показывать параметры)	Boolean (Обычное логическое)		Доступен
ShowMetadata (Показывать метаданные)	Boolean (Обычное логическое)		Доступен

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
ShowFields (Показывать поля)	Boolean (Обычное логическое)		Доступен
ShowMethods (Показывать методы)	Boolean (Обычное логическое)		Доступен
ShowProperties (Показывать свойства)	Boolean (Обычное логическое)		Доступен
ShowParameters (Показывать параметры)	Boolean (Обычное логическое)		Доступен
ShowMetadata (Показывать метаданные)	Boolean (Обычное логическое)		Доступен

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Скрыт
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Скрыт
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
BannedClass (Запрещаемый класс)	TClass required cascade domain (Класс (с каскадным удалением))		Доступен

Используется для хранения значений свойства TClassBan.BannedClass (Запрещаемый класс)
.

Для чтения значения свойства используется поле TClassBan.FBannedClass (Запрещенный класс) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
Required (Обязательно для заполнения)	Boolean (Обычное логическое)	Унаследован	Доступен
ClassOfDomain (Класс домена)	TClass required domain (Класс (обязательно))		Доступен
View (Представление для выбора)	TView of ClassDomain domain (Представление)		Доступен
FilterCondition (Условие отбора)	TFilterCondition (Условие отбора)		Доступен
ShowObjectInfoType (Тип представления объектов)	TShowObjectInfoType (Тип представления объектов)		Доступен
DeleteRule (Правило удаления)	TDeleteRule (Правило удаления)		Доступен

Используется для хранения значений свойства TClassDomain.ClassOfDomain (Класс домена)
.

Используется для хранения значений свойства TClassDomain.DeleteRule (Правило удаления)
.

Используется для хранения значений свойства TClassDomain.FilterCondition (Условие отбора)
.

Используется для хранения значений свойства TClassDomain.ShowObjectInfoType (Тип представления объектов)
.

Используется для хранения значений свойства TClassDomain.View (Представление)
.

Для чтения и записи свойства используется поле TClassDomain.FClass (Класс) .

Для чтения и записи свойства используется поле TClassDomain.FDeleteRule (Правило удаления) .

Для чтения и записи свойства используется поле TClassDomain.FFilterCondition (Условие отбора) .

Для чтения и записи свойства используется поле TClassDomain.FShowObjectInfoType (Тип представления объектов) .

Для чтения и записи свойства используется поле TClassDomain.FView (Представление) .

Параметры:

Параметр	Тип	Примечание	Видимость	Связанное свойство
Name (Имя)	TObjectName (Имена)	Унаследован	Доступен	Name (Имя)
Description (Наименование)	TObjectDescription (Наименования)	Унаследован	Доступен	Description (Наименование)
Class (Класс)	TClass domain (Класс)	Унаследован	Доступен	Class (Класс)
Parent (Родитель)	TParent domain (Родитель объекта)	Унаследован	Доступен	Parent (Родитель)
Master (Мастер)	TMaster domain (Объект (с каскадным удалением))	Унаследован	Доступен	Master (Мастер)
Accessor (Роль доступа)	TAccessor domain (Роли доступа)	Унаследован	Скрыт
GUID (GUID)	TGUID (Уникальные идентификаторы)		Доступен
Protected (Защищена)	Boolean (Обычное логическое)		Доступен