Append(Value: IAuditFilter);
Value - фильтр протокола доступа.
Метод Append дополняет фильтр новыми условиями.
Для выполнения примера предполагается наличие файла «C:\1.xml», содержащего фильтр протокола доступа.
Sub Main;
Var
FilCon: IAuditFiltersContainer;
FilObj: IAuditFilterObject;
AF: IAuditFilter;
New_Filtr: IAuditFilterCondition;
Begin
FilCon := New AuditFiltersContainer.Create;
FilCon.LoadFromFile("C:\1.xml");
FilObj := FilCon.Filters.Add;
AF := FilObj.Filter;
New_Filtr := AF.Add;
New_Filtr.FinishDate := 39814;
FilObj.Filter.Append(AF);
FilCon.SaveToFile(FilCon.FileName);
End Sub Main;
После выполнения примера в загруженный файл фильтра протокола доступа будет добавлен фильтр, дополненный новым условием. Затем файл фильтра будет сохранен обратно в файл.
См. также: