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 и вывод в консоль наименования атрибута и направления установленной сортировки.
См. также: