Append(Value: IAuditFilter);
Value. Access protocol filter.
The Append method appends the filter with new conditions.
Executing the example requires the C:\1.xml file that contains a filter of access protocol.
Add a link to the Metabase system assembly.
Sub UserProc;
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 UserProc;
After executing the example the filter appended with new conditions is added to the loaded file of access protocol filter. Then a filter file is saved back into the file.
See also: