Clear;
Метод Clear очищает коллекцию настроек.
После вызова метода значение свойства IRdsDictionaryTranslations.Count становится равным нулю.
Для выполнения примера предполагается наличие репозитория НСИ, содержащего справочник НСИ. Идентификатор репозитория - «RDS_REPO», справочника - «RDS_DICT». Также необходимо добавить ссылки на системные сборки «Metabase» и «Rds».
Sub UserSub;
Var
Mb: IMetabase;
RdsRepoDescr: IMetabaseObjectDescriptor;
RdsDict: IRdsDictionary;
DictTransl: IRdsDictionaryTranslations;
Begin
Mb := MetabaseClass.Active;
RdsRepoDescr := Mb.ItemById("RDS_REPO");
RdsDict := Mb.ItemByIdNamespace("RDS_DICT", RdsRepoDescr.Key).Edit As IRdsDictionary;
DictTransl := RdsDict.Translations;
DictTransl.IsOn := False;
DictTransl.Clear;
(RdsDict As IMetabaseObject).Save;
End Sub UserSub;
После выполнения примера для справочника НСИ будет отключена возможность перевода на различные языки. Коллекция настроек будет очищена.
См. также: