ILanerAttributes.Add

Синтаксис

Add(Attribute: IMetaAttribute): Integer;

Параметры

Attribute - добавляемый атрибут.

Описание

Метод Add осуществляет добавление атрибута и возвращает его индекс в коллекции.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая область базы данных временных рядов. В репозитории должна присутствовать базы данных временных рядов. Пример будет выполняться при нажатии на кнопку.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

ErAn: IEaxAnalyzer;

Laner: ILaner;

Rubrikator: IRubricator;

Attr: IMetaAttributes;

LanerAttr: ILanerAttributes;

Begin

ErAn := UiErAnalyzer1.ErAnalyzer;

Laner := ErAn.Laner;

Laner.BeginUpdate;

Rubrikator := Laner.RubricatorInstance.Rubricator;

Attr := Rubrikator.Facts.Attributes;

LanerAttr := Laner.Attributes;

If LanerAttr.Count > 0 Then

LanerAttr.Clear;

End If;

LanerAttr.Add(Attr.FindById("REV"));

Laner.EndUpdate;

End Sub Button1OnClick;

После выполнения примера в таблице данных будет отображен дополнительный атрибут «Revision» (ревизия).

См. также:

ILanerAttributes