MetaAttribute: IMetaAttribute;
Свойство MetaAttribute возвращает отображаемый атрибут.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента Memo с наименованием «Memo1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая область базы данных временных рядов.
Пример будет выполняться при нажатии на кнопку.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ErAn: IEaxAnalyzer;
Laner: ILaner;
LanerAttr: ILanerAttributeColumns;
LanerA: ILanerAttributeColumn;
i: Integer;
Begin
ErAn := UiErAnalyzer1.ErAnalyzer;
Laner := ErAn.Laner;
LanerAttr := Laner.AttributeColumns;
If LanerAttr.Count = 0
Then
Memo1.Lines.Add("Для рядов не определены дополнительные отображаемые атрибуты");
Else
For i := 0 To LanerAttr.Count - 1 Do
LanerA := LanerAttr.Item(i);
Memo1.Lines.Add("Наименование атрибута: " + LanerA.MetaAttribute.Name);
Memo1.Lines.Add(" Атрибут только для чтения: " + LanerA.ReadOnly.ToString);
End For;
End If;
End Sub Button1OnClick;
После выполнения примера в компонент Memo будут выведены наименования дополнительных отображаемых атрибутов и их доступность для редактирования.
См. также: