Count: Integer;
Свойство Count возвращает количество атрибутов в коллекции.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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» (ревизия).
См. также: