IRdsElementComparer.Less

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

Class IRdsElementComparer_Less_FormForm: Form
    Button1: Button;
    RdsDictionaryBox1: RdsDictionaryBox;
    UiRdsDictionary1: UiRdsDictionary;
    dictionary: IRdsDictionaryInstance;
    LValue, RValue: IRdsDictionaryElement;
    sorter: IRdsElementsSorter;
    com: CustomComparer;
    
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    sorter.Sort(True);
    RdsDictionaryBox1.RefreshElements;
End Sub Button1OnClick;
    

Sub IRDSELEMENTCOMPARER_LESS_FORMFormOnShow(Sender: Object; Args: IEventArgs);
Begin
    com := New CustomComparer.Create;
    dictionary := rdsdictionaryBox1.Source.Instance;
    sorter := dictionary.Elements.CreateSorter(dictionary.Elements.Root);
    sorter.Comparer := com As IRdsElementComparer;
End Sub IRDSELEMENTCOMPARER_LESS_FORMFormOnShow;

End Class IRdsElementComparer_Less_FormForm;

Class CustomComparer: Object, IRdsElementComparer
    Function Less(LValue: IRdsDictionaryElement; RValue: IRdsDictionaryElement): Boolean;
    Var
        comp: IComparer;
    Begin
        comp := comparer.StringCaseInsensitiveComparer;
        If (Comp.Compare(LValue.Name, RValue.Name) > 0) Then Return True
            Else Return False;
        End If;
    End Function Less;
End Class CustomComparer;