IDimTextCriteria.CriteriaOptions

Копировать пример

Class TestForm: Form
    EditBox1: EditBox;
    Button1: Button;
    Button2: Button;
    Label1: Label;
    UiDimension1: UiDimension;
    MetabaseOpenDialog1: MetabaseOpenDialog;
    DimensionTree1: DimensionTree;
    
    Function Search(DimInst: IDimInstance; SearchStr: String): IDimSelection;
    Var
        Result: IDimSelection;
        TextCriteria: IDimTextCriteria;
        OrmManager: IDimOrmManager;
    Begin
        If IsNull(DimInst) Or SearchStr.IsEmpty Then
            Return Result;
        End If;
        TextCriteria := New DimTextCriteria.Create;
        TextCriteria.CriteriaOptions := TextCriteriaOptions.LikeText Or TextCriteriaOptions.SearchStringAttributes;
        TextCriteria.Text := SearchStr;
        Result := DimInst.CreateSelection;
        OrmManager := New DimOrmManager.Create;
        OrmManager.CreateCondition(DimInst.Dimension, TextCriteria).SelectElements(Result);
        Return Result;
    End Function Search;
    
    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        UiDimension1.Selection := Search(UiDimension1.DimInstance, EditBox1.Text);
    End Sub Button1OnClick;
    
    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If MetabaseOpenDialog1.Execute(Self) Then
            UiDimension1.Active := False;
            UiDimension1.Dimension := MetabaseOpenDialog1.Object.Bind As IDimensionModel;
            UiDimension1.Active := True;
        End If;
    End Sub Button2OnClick;
End Class TestForm;