Сортировка записей таблицы Опции

[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 для каждого индекса. Помогите, пожалуйста!

Сообщение отредактировано: Haliam-Baliam - 26.05.2007 14:18