ILanerAttributeColumn.MetaAttribute

Syntax

MetaAttribute: IMetaAttribute;

Description

The MetaAttribute property returns the displayed attribute.

Example

Executing the example requires a form with the following components: the Button component named Button1, the Memo component named Memo1, the TabSheetBox component named TabSheetBox1, and the UiErAnalyzer component named UiErAnalyzer1. UiErAnalyzer1 is a data source for TabSheetBox1. A working area of the time series database should be loaded to UiErAnalyzer1.

The example is a handler of the OnClick event for the Button1 component.

Add links to the Collections, Express, ExtCtrls, Forms, Laner, Rds, and Tab system assemblies.

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("Additional displayed attributes are not determined for series");
        Else
        For i := 0 To LanerAttr.Count - 1 Do
            LanerA := LanerAttr.Item(i);
            Memo1.Lines.Add("Attribute name: " + LanerA.MetaAttribute.Name);
            Memo1.Lines.Add("    Read-only attribute: " + LanerA.ReadOnly.ToString);
        End For;
    End If;
End Sub Button1OnClick;

After executing the example, names of additional displayed attributes and their availability for editing are displayed in the Memo component.

See also:

ILanerAttributeColumn