IRdsSortAttributes.Remove

Синтаксис Fore

Remove:(Index: Integer): Boolean;

Синтаксис Fore.NET

Remove(Index: Integer): boolean;

Параметры

Index. Индекс атрибута сортировки, который необходимо удалить.

Описание

Метод Remove осуществляет удаление атрибута сортировки, индекс которого передается посредством параметра Index.

Пример Fore

Для выполнения примера необходимо наличие формы, расположенных на ней кнопок с наименованием «Button1» и «Button2», компонентов RdsDictionaryBox1 и UiRdsDictionary1, являющегося источником данных для компонента RdsDictionaryBox1. К компоненту UiRdsDictionary1 подключен справочник НСИ. Подключите системные сборки ExstCtrls, Forms, Metabase, Rds.

Пример является обработчиком событий OnCliсk для кнопок.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Attr:IRdsAttribute;
Begin
    Attr:= Attrs.FindById("name");
    SAttrs.Add(Attr,True);
    Sorter.Sort(True);
    RdsDictionaryBox1.RefreshElements;        
End Sub Button1OnClick;
    
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Attr:IRdsAttribute;
Begin
    Attr:= Attrs.FindById("test");
    SAttrs.Remove(0);
    SAttrs.Add(Attr,True);
    Sorter.Sort(true);
    RdsDictionaryBox1.RefreshElements;    
End Sub Button2OnClick;

Sub OBJ45736FormOnCreate(Sender: Object; Args: IEventArgs);
Begin
    Dict:= RdsDictionaryBox1.Source.Instance;
    Elems := Dict.Elements;
    Sorter:= Elems.CreateSorter(Elems.Root);
    Attrs := Dict.Dictionary.Attributes;
    SAttrs:= Sorter.Attributes;
End Sub OBJ45736FormOnCreate;

End Class OBJ45736Form;

После выполнения примера при нажатии кнопки Button1 элементы будут отсортированы по наименованию, при нажатии кнопки Button2 будет производиться сортировка по атрибуту «test».

Пример Fore.NET

Для выполнения примера необходимо наличие формы, расположенных на ней кнопок с наименованием «button1» и «button2», компонентов RdsDictionaryBoxNet1 и UiRdsDictionaryNet1, являющегося источником данных для компонента RdsDictionaryBoxNet1. К компоненту UiRdsDictionaryNet1 подключен справочник НСИ. Подключите системные сборки Forms, Metabase, Rds.

Пример является обработчиком событий Cliсk для кнопок.

Imports Prognoz.Platform.Interop.Rds;
…
Public Partial Class OBJ50087Form: Prognoz.Platform.Forms.Net.ForeNetForm
    
    Dict: IRdsDictionaryInstance;
    Elems: IRdsDictionaryElements;
    Sorter: IRdsElementsSorter;
    Attrs: IRdsAttributes;
    SAttrs: IRdsSortAttributes;
    
Public Constructor OBJ50087Form();
Begin
    InitializeComponent();
End Constructor;

Private Sub button1_Click( sender : System.Object; e : System.EventArgs );
Var
    Attr: IRdsAttribute;
Begin
    Attr := Attrs.FindById("name");
    SAttrs.Add(Attr, True);
    Sorter.Sort(True);
    RdsDictionaryBoxNet1.CtrlBox.RefreshElements();
End Sub;

Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
Var
    Attr: IRdsAttribute;
Begin
    Attr := Attrs.FindById("test");
    SAttrs.Remove(0);
    SAttrs.Add(Attr, True);
    Sorter.Sort(true);
    RdsDictionaryBoxNet1.CtrlBox.RefreshElements();
End Sub;

Private Sub OBJ50087Form_Shown(sender: System.Object; e: System.EventArgs);
Begin
    Dict := RdsDictionaryBoxNet1.CtrlBox.Source.Instance;
    Elems := Dict.Elements;
    Sorter := Elems.CreateSorter(Elems.Root);
    Attrs := Dict.Dictionary.Attributes;
    SAttrs := Sorter.Attributes;
End Sub;

End Class;

После выполнения примера при нажатии кнопки button1 элементы будут отсортированы по наименованию, при нажатии кнопки button2 будет производиться сортировка по атрибуту «test».

См. также:

IRdsSortAttributes