IRubricatorSegment.Key

Синтаксис

Key: Integer;

Описание

Свойство Key возвращает ключ сегмента данных.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором «OBJ_RUBRICATOR», в которой должны быть определены сегменты.

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("Ключ сегмента: " + Seg.Key.ToString);

i := Seg.Type;

Select Case i

Case 1: Debug.WriteLine("Тип сегмента: Диапазон данных");

Case 2: Debug.WriteLine("Тип сегмента: Временной диапазон");

End Select;

End Sub Main;

После выполнения примера в окно консоли будет выведен ключ и тип первого сегмента данных базы данных временных рядов.

См. также:

IRubricatorSegment