Ascending: Boolean;
Ascending: boolean;
Свойство Ascending определяет направление сортировки элементов справочника НСИ. При установке значения True сортировка производится по возрастанию.
Для выполнения примера необходимо наличие формы, расположенных на ней кнопки с наименованием «Button1», компонентов RdsDictionaryBox1 и UiRdsDictionary1, являющегося источником данных для компонента RdsDictionaryBox1. К компоненту UiRdsDictionary1 через свойство Object подключен справочник НСИ. Подключите системные сборки ExstCtrls, Forms, Metabase, Rds.
Пример является обработчиком события OnCliсk для кнопки.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Dict: IRdsDictionaryInstance;
Attrs: IRdsAttributes;
SAttr: IRdsSortAttribute;
Sorter: IRdsElementsSorter;
Elems: IRdsDictionaryElements;
Begin
Dict := RdsDictionaryBox1.Source.Instance;
Elems := Dict.Elements;
Sorter := Elems.CreateSorter(Elems.Root);
Attrs := Dict.Dictionary.Attributes;
SAttr := Sorter.Attributes.Add(Attrs.FindById("Name"), True);
debug.WriteLine(SAttr.Attribute.Name);
debug.WriteLine(SAttr.Ascending);
Sorter.Sort(False);
RdsDictionaryBox1.RefreshElements;
End Sub Button1OnClick;
После выполнения примера при нажатии кнопки «Button1» будет произведена сортировка по атрибуту Name и вывод в консоль наименования атрибута и направления установленной сортировки.
Для выполнения примера необходимо наличие формы, расположенных на ней кнопки с идентификатором «button1», компонентов RdsDictionaryBoxNet1 и UiRdsDictionaryNet1, являющегося источником данных для компонента RdsDictionaryBoxNet1. К компоненту UiRdsDictionaryNet1 через свойство Object подключен справочник НСИ. Подключите системные сборки Forms.NET, Forms, Rds.
Пример является обработчиком события Cliсk для кнопки.
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Rds;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Dict: IRdsDictionaryInstance;
Attrs: IRdsAttributes;
SAttr: IRdsSortAttribute;
Sorter: IRdsElementsSorter;
Elems: IRdsDictionaryElements;
Begin
Dict := RdsDictionaryBoxNet1.Source.Instance;
Elems := Dict.Elements;
Sorter := Elems.CreateSorter(Elems.Root);
Attrs := Dict.Dictionary.Attributes;
SAttr := Sorter.Attributes.Add(Attrs.FindById("Name"), True);
System.Diagnostics.Debug.WriteLine(SAttr.Attribute.Name);
System.Diagnostics.Debug.WriteLine(SAttr.Ascending);
Sorter.Sort(False);
RdsDictionaryBoxNet1.CtrlBox.RefreshElements();
End Sub;
После выполнения примера при нажатии кнопки «Button1» будет произведена сортировка по атрибуту Name и вывод в консоль наименования атрибута и направления установленной сортировки.
См. также: