IDimBlock.Indexes

Синтаксис

Indexes: IDimIndexes;

Описание

Свойство Indexes возвращает объект, содержащий коллекцию индексов блока справочника.

Пример

Sub Main;

Var

MB: IMetabase;

DimModel: IDimensionModel;

DimBlocks: IDimBlocks;

DimBlock: IDimBlock;

Index: IDimIndexes;

i: Integer;

Begin

MB:=MetabaseClass.Active;

DimModel:=MB.ItemById("D_TO").Bind As IDimensionModel;

DimBlocks:=DimModel.Blocks;

DimBlock:=DimBlocks.Item(0);

Index:=DimBlock.Indexes;

i:=Index.Count;

End Sub Main;

После выполнения примера в переменной «i» будет содержаться количество индексов первого блока справочника. Идентификатор объекта репозитория - «D_TO».

См. также:

IDimBlock