type
  // Множество условий для атрибутов всех типов
  TfltCondition = (cdAssEqual, cdAssNotEqual, cdAssIsNull, cdAssIsNotNull,
    cdEqual, cdNotEqual,
    cdIsNull, cdIsNotNull,
    cdGreater, cdGreaterOrEqual,
    cdLess, cdLessOrEqual,
    cdStartingFrom, cdNotStartingFrom,
    cdContaining, cdNotContaining, cdAnd, cdOr, cdNot,
    cdAssEqualFromReference, cdLike, cdNotLike);
  //    cdAssEqualFromReference
  TExistsConditions = (ceExists, ceNotExists);

  TfltConditions = set of TfltCondition;

  TfltRelation = (relAnd, relOr);
  TfltRelations = set of TfltRelation;

  TNodeType = (ntGroup, ntLine);
  TNodeTypes = set of TNodeType;

const
  CStringConditions = [cdEqual, cdNotEqual,
    cdIsNull, cdIsNotNull,
    cdGreater, cdGreaterOrEqual,
    cdLess, cdLessOrEqual,
    cdStartingFrom, cdNotStartingFrom,
    cdContaining, cdNotContaining, cdLike, cdNotLike];

  CNumberConditions = [cdEqual, cdNotEqual,
    cdIsNull, cdIsNotNull,
    cdGreater, cdGreaterOrEqual,
    cdLess, cdLessOrEqual];

  CBooleanConditions = [cdEqual, cdNotEqual,
    cdIsNull, cdIsNotNull {, cdAnd, cdOr}];

  CBlobConditions = [cdIsNull, cdIsNotNull]; // Допустимые условия для блоба

  CAssConditions = [cdAssEqual, cdAssNotEqual,
    cdAssIsNull, cdAssIsNotNull];

  // Допустимые условия для ассоциации в фильтрах отчетов
  CAssRepConditions = [cdAssEqual, cdAssNotEqual,
    cdAssIsNull, cdAssIsNotNull, cdAssEqualFromReference];

  CUserConditions = [cdAssEqual, cdAssNotEqual,
    cdAssIsNull, cdAssIsNotNull];

  //  CParamConditions = [cdAssEqual, cdAssNotEqual, cdAssIsNull, cdAssIsNotNull,
  //    cdEqual, cdNotEqual,
  //    cdIsNull, cdIsNotNull,
  //    cdGreater, cdGreaterOrEqual,
  //    cdLess, cdLessOrEqual,
  //    cdStartingFrom, cdNotStartingFrom,
  //    cdContaining, cdNotContaining, cdAnd, cdOr, cdNot];

  CAConditions: array[cdAssEqual..cdNotLike] of string =
  ('=', '<>', 'Is Null', 'Is Not Null', '=', '<>', 'Is Null',
    'Is Not Null', '>',
    '>=', '<', '<=', 'Starts',
    'Not Starts', 'Containing', 'Not Containing', 'And', 'Or', 'Not',
    '=', 'Like', 'Not Like');

  CACaptConditions: array[cdAssEqual..cdNotLike] of string =
  ('из списка равно', 'из списка не равно', 'из списка не выбрано',
    'из списка выбрано', 'равно', 'не равно', 'не задано', 'задано', 'больше',
    'больше или равно', 'меньше', 'меньше или равно', 'начинается с',
    'не начинается с', 'содержит', 'не содержит', 'и', 'или', 'не',
    'из таблицы равно', 'похож на', 'не похож на');

  CARelations: array[relAnd..relOr] of string =
  ('And', 'Or');
  CACaptRelations: array[relAnd..relOr] of string =
  ('и', 'или');

  CANodeTypes: array[ntGroup..ntLine] of string =
  ('группа', 'строка');

  CACaptBooleanValues: array[False..True] of string = ('Нет', 'Да');
  CACaptBooleanNames: array[False..True] of string = ('False', 'True');


  CAFieldDefaultValues: array[ftUnknown..ftFMTBcd] of string =
  ('', '', '0', '0', '', 'Нет', '0', '0', '0', '', '', '',
    '', '', '0', '', '', '', '', '', '', '', '', '', '',
    '0', '', '', '', '', '', '', '', '', '', '', '', '0');

  CAExistsConditions: array[ceExists..ceNotExists] of string =
  ('exists',
    'not exists');

  CACaptExistsConditions: array[ceExists..ceNotExists] of string = ('содержит',
    'не содержит');
...
type
  TgrdModelKeyType = (grd_mkt_Sign, grd_mkt_SignFlush, grd_mkt_SignNet, grd_mkt_Code,
    grd_mkt_SignMicro, grd_mkt_SignFlushMicro,
    grd_mkt_CodeFlush, grd_mkt_CodeMicro, grd_mkt_CodeFlushMicro
    );
...
const
  CAAttrWidth: array[TAttrType] of Integer = (DefWidthString,
    DefWidthInteger, DefWidthMoney, DefWidthReal, DefWidthDate,
    DefWidthAssociaton, DefWidthBoolean, DefWidthDateTime, DefWidthUser,
    DefWidthMonth);
...
  CACaptAttr_Def: array[TAttrType] of string =
  ('Строка', 'Целый', 'Деньги', 'Вещественный', 'Дата', 'Ссылка',
    'Логический',
    'Момент времени', 'Пользователь', 'Месяц');
...
type
  TRDSProperty = (rdsp_Sorting, rdsp_Filtering, rdsp_Dependence);
const
  caTRDSProperties: array[TRDSProperty] of string = (
    'Сортировка',
    'Фильтр',
    'Мастер-набор данных'
    );
...
type
  TRDS_Depend_Type = (rdp_Independent, rdp_Embedding, rdp_BackEmbedding,
    rdp_Association, rdp_BackAssociation);

const
  cDependTypeName: array[TRDS_Depend_Type] of string =
  ('Зависимости нет',
    'Внедрение', 'Обратное внедрение',
    'Ассоциация', 'Обратная ассоциация');