ApplyObject(Index: MetabaseSpecialObject): Boolean;
Index. Тип специального объекта.
Свойство ApplyObject определяет признак вхождения в обновление специального объекта, передаваемого посредством входного параметра.
Если свойству установлено значение True, то указанный специальный объект будет включен в обновление.
Для выполнения примера предполагается наличие в корневом каталоге диска C файла обновления Update.pef.
Sub UserProc;
Var
Mb: IMetabase;
Update: IMetabaseUpdate;
SpecialObjNode: IMetabaseUpdateSpecialObjectsNode;
Begin
MB := MetabaseClass.Active;
Update := Mb.CreateUpdate;
Update.LoadFromFileNF("C:\Update.pefx");
SpecialObjNode := Update.SpecialObjectsNode;
SpecialObjNode.ApplyObject(MetabaseSpecialObject.SharedParams) := True;
Update.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;
После выполнения примера в обновление, загруженное из файла, будет добавлен специальный объект: глобальные переменные. Затем обновление будет сохранено.
См. также: