IMetaAttributesSet.FindByKindBasis

Syntax

FindByKindBasis(Basis: Integer; kKind: MetaAttributeKind; Var Index: Integer): IMetaAttribute;

Parameters

Basis - basis, by which search is executed.

kKind - target attribute type.

Index - variable, in which index of a found attribute is returned.

Description

The FindByKindBasis method searches an attribute by type and basis.

Example

Executing the example requires that the repository contains a time series database with the OBJ_FC identifier.

Sub Main;

Var

MB: IMetabase;

Rubr: IRubricator;

Facts: IMetaDictionary;

Atts: IMetaAttributes;

Attr: IMetaAttribute;

SS: IMetaAttributesSubset;

Rds: IMetabaseObjectDescriptor;

i: Integer;

ind: Integer;

Begin

MB := MetabaseClass.Active;

Rubr := MB.ItemById("OBJ_FC").Bind As IRubricator;

Facts := Rubr.Facts;

Atts := Facts.Attributes;

SS := Atts.CreateSubset("KEY;FACTOR", SubsetOperation.Select_);

Rds := mb.ItemById("RDS_REPO");

Attr := Atts.FindByKindBasis(-1, MetaAttributeKind.Revision, ind);

If Attr <> Null Then

SS.Add(Attr);

End If;

For i := 0 To SS.Count - 1 Do

Debug.WriteLine(SS.Item(i).Name);

End For;

End Sub Main;

After executing the example a set that consists of the attributes KEY and FACTOR is created. An attribute that determines factor revision is also included to the set, the "ind" variable stores its index. Names of all attributes included in the set are displayed in the console window.