ILanerAttributes.Add

Syntax

Add(Attribute: IMetaAttribute): Integer;

Parameters

Attribute. The attribute being added.

Description

The Add method adds an attribute and returns its index in collection.

Example

Executing the example requires a form with the following components: the Button component named Button1, 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 that contains the spliced series should be loaded to UiErAnalyzer1.

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

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

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;

After executing the example, data table displays the additional attribute Revision.

See also:

ILanerAttributes