IDimIndex.Unique

Syntax

Unique: Boolean;

Description

The Unique property returns True if the index is unique.

Example

Sub UserProc;
Var
    MB: IMetabase;
    DimModel: IDimensionModel;
    Indexs: IDimIndexes;
    Index: IDimIndex;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    DimModel:=MB.ItemById("D_TO").Bind As IDimensionModel;
    Indexs:=DimModel.Indexes;
    Index:=Indexs.Item(0);
    If Index.Unique Then
        s:="Unique";
    Else
        s:="Not unique";
    End If;
End Sub UserProc;

After executing the example the "s" variable shows Unique if the first dictionary index is a unique one. Repository object identifier: D_TO.