RemoveByName(Name: String): Boolean;
Name - наименование домена, который нужно удалить.
Метод RemoveByName удаляет указанный домен из коллекции. Возвращает True, если удаление прошло удачно.
Для выполнения предполагается наличие формы, с расположенной на ней кнопкой «Button1».
Sub Button1OnClick(Sender: Object; Args: IEventArgs);
Var
MB: IMetabase;
Sec: IMetabaseSecurity;
m_User: IMetabaseUser;
St: IStations;
Dm: IDomains;
Begin
MB := MetabaseClass.Active;
Sec := MB.Security;
m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;
St := m_User.Stations;
Dm := St.Domains;
Dm.RemoveByName("PROGNOZ);
Sec.Apply;
End Sub Button1OnClick;
При нажатии на кнопку из коллекции будет удален домен с наименованием «PROGNOZ».
См. также: