Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка записей таблицы
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
klem4
Такблица paradox. Записи сортируются, но система не хочет реагировать на указания связанные с направлением сортировки, всегда сортирует по возрастанию, почему ?

procedure TfrmStore.Button1Click(Sender: TObject);
begin
  with frmMain.tblStore do begin
    if rdBtnByOperationNumber.Checked then
     IndexName := ''
    else
     if rdBtnByDate.Checked then
       IndexName := 'indSDate'
      else
       if rdBtnByGoodsCode.Checked then
        IndexName := 'indSGoodsCode'
         else begin
           MessageDlg('Необходимо выбрать поле сортировки', mtInformation, [mbOk], 0);
           Abort;
         end;

     if chkBxDesc.Checked then  // <<-------------- Направление должно зависеть от чекбокса ...
      IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
       IndexDefs[IndexDefs.IndexOf(IndexName)].Options + [ixDescending]
      else
       IndexDefs[IndexDefs.IndexOf(IndexName)].Options :=
        IndexDefs[IndexDefs.IndexOf(IndexName)].Options - [ixDescending]
    end;
end;
volvo
Цитата
всегда сортирует по возрастанию, почему ?

Потому, что параметры из IndexDefs - используются только при СОЗДАНИИ таблицы...
klem4
А как можно поступить в такой ситуации ? В учебнике смотрю, там автор делает также, изменяет эти опции в рантайме ... Странно.
volvo
Цитата
А как можно поступить в такой ситуации ?
AddIndex ?
Haliam-Baliam
У меня почти такой же вопрос. Параметр ixDescending воспринимается как неописанный идентификеатор. Я его пробывал задавать при создании таблицы (DatabaseDesktop) и уже из под Дельфи в свойствах компонента Ttable для каждого индекса. Помогите, пожалуйста!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.