Count: Integer;
Свойство Count возвращает количество примитивов в группе элементов.
Sub UserProc;
Var
MB: IMetabase;
ElemGroup: IDimElementGroup;
i: Integer;
Begin
MB:=MetabaseClass.Active;
If MB.ItemById("D_TO").Children.Count<>0 Then
ElemGroup:=MB.ItemById("D_TO").Children.Item(0).Bind As IDimElementGroup;
i:=ElemGroup.Count;
End If;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться количество примитивов первой группы элементов справочника.
См. также: