IDimOrmClass.CreateCondition

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

Class MyForm: Form
    dtree: DimensionTree;
    cmdSelect: Button;
    uidim: UiDimension; 
    
    Sub cmdSelectOnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        pDimModel : IDimensionModel;
        pManager : IDimOrmManager;
        pClass : IDimOrmClass;
        pCond : IDimOrmCondition;
        pCondition : IOrmCondition;
        pDimElement : IDimElement;
        pDim : IDimInstance;
        pDimElements : IDimElementArray;
        i : Integer;
    Begin
        pDim := uidim.DimInstance;
        pDimModel := uidim.Dimension;
        pManager := New DimOrmManager.Create;
        pClass := pManager.CreateClass(pDimModel);
        pCond := pClass.CreateCondition;
        pCondition := pCond.Conditions.Add;
        pCondition.AttributeName := "TEMP1";
        pCondition.Operator_ := OrmComparisonOperator.IsNotNull;
        pDimElement := pDim.NewElement;
        pDimElements := pDim.Elements.Elements;
        For i := 0 To pDimElements.Count - 1 Do
            pDimElement.Element := pDimElements.Element(i);
            If pCond.Evaluate(pDimElement) Then
                dtree.Selection.SelectElement(pDimElement.Element, False);
            End If;
        End For;
    End Sub cmdSelectOnClick;
End Class MyForm;