AttributeCount: Integer;
The AttributeCount property returns the number of system attributes in the dictionary.
Executing the example assumes that repository contains a calendar dictionary with the CALENDAR_DIM identifier.
Sub Main;
Var
MB: IMetabase;
CalDim: ICalendarDimension;
i: Integer;
Begin
MB:=MetabaseClass.Active;
CalDim:=MB.ItemById("CALENDAR_DIM").Bind As ICalendarDimension;
i:=CalDim.AttributeCount;
End Sub Main;
After executing the example the "i" variable contains the number of system dictionary attributes.
See also: