IdFilter: IStringFilterCondition;
The IdFilter property determines an identifier of an object for that protocol records are necessary to be displayed.
After applying this filter the protocol contains records for objects that identifier has specified text.
Sub UserProc;
Var
FilCon: IAuditFiltersContainer;
Objs: IAuditFilterObjects;
Obj: IAuditFilterObject;
Con: IAuditFilterCondition;
Fil: IAuditFilter;
Filter: IStringFilterCondition;
Begin
FilCon := New AuditFiltersContainer.Create;
FilCon.Load;
Objs := FilCon.Filters;
Obj := Objs.FindById("FILTER").Edit;
Fil := Obj.Filter;
If Fil.Count <= 0 Then
Con := Fil.Add;
Else
Con := Fil.Item(0);
End If;
Filter := Con.IdFilter;
Filter.IsON := True;
Filter.CaseSensitive := True;
Filter.WholeWordsOnly := False;
Filter.Value := "Report";
Obj.Save;
FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub UserProc;
After executing the example the filtering condition is changed: access protocol records are displayed only for the objects, that contain the Report in their identifiers.
See also: