Key: Integer;
The Key property returns key of a data segment.
Executing the example requires that the repository contains a time series database with the OBJ_RUBRICATOR identifier, in which segments must be determined.
Sub Main;
Var
mb: IMetabase;
rubInst: IRubricatorInstance;
Rub: IRubricator;
Segs: IRubricatorSegments;
Seg: IRubricatorSegment;
i: Integer;
Begin
mb := MetabaseClass.Active;
Rub := mb.ItemById("OBJ_RUBRICATOR").Bind As IRubricator;
rubInst := (Rub As IMetabaseObjectDescriptor).Open(Null) As IRubricatorInstance;
Segs := rubInst.Segments;
Seg := Segs.Item(0);
Debug.WriteLine(Segment key: + Seg.Key.ToString);
i := Seg.Type;
Select Case i
Case 1: Debug.WriteLine(Segment type: Data range);
Case 2: Debug.WriteLine(Segment type: Time range);
End Select;
End Sub Main;
After executing the example key and type of the first segment of the time series database data are displayed in the console window.
See also: