Tag: Variant;
The Tag property is ignored by the compiler; thus, user can use this property for his own purposes.
The Tag value is saved with a dictionary.
Executing the example requires an MDM repository with the RDS_REPO identifier that contains a dictionary with the OBJ_DICT identifier. It is also necessary to add links to the Metabase, Rds system assemblies.
Sub UserProc;
Var
MB: IMetabase;
RdsDescr: IMetabaseObjectDescriptor;
Dict: IRdsDictionary;
Atts: IRdsAttributes;
Attr: IRdsAttribute;
Begin
MB := MetabaseClass.Active;
RdsDescr := MB.ItemById("RDS_REPO");
Dict := MB.ItemByIdNamespace("OBJ_DICT", RdsDescr.Key).Bind As IRdsDictionary;
Atts := Dict.Attributes;
Attr := Atts.FindById("KEY");
Attr.Tag := Dictionary elements key;
End Sub UserProc;
After executing the example a comment contained in the Tag property is created for the KEY attribute of a dictionary.
See also: