Clear;
The Clear method clears all attributes from the collection.
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 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: ILanerAttributeColumns;
Begin
ErAn := UiErAnalyzer1.ErAnalyzer;
Laner := ErAn.Laner;
Laner.BeginUpdate;
Rubrikator := Laner.RubricatorInstance.Rubricator;
LanerAttr := Laner.AttributeColumns;
If LanerAttr.Count > 0 Then
LanerAttr.Clear;
End If;
// Display additional attribute
Attr := Rubrikator.Facts.Attributes;
LanerAttr.Add(Attr.FindById("REV"));
Laner.EndUpdate;
End Sub Button1OnClick;
Click the button to start executing this example. If there are any elements in the collection of displayed series attributes, the collection is cleared. Then the Revision attribute is added to it.
See also: