Такблица 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;
--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
У меня почти такой же вопрос. Параметр ixDescending воспринимается как неописанный идентификеатор. Я его пробывал задавать при создании таблицы (DatabaseDesktop) и уже из под Дельфи в свойствах компонента Ttable для каждого индекса. Помогите, пожалуйста!