delphi - 反转 ClientDataSet 索引的顺序

Question

我想反转 TClientDataSet 中索引的顺序，下面的代码看起来应该可以解决问题，但什么也没做。有没有一种好方法来反转索引的顺序？

procedure TForm8.Button1Click(Sender: TObject);
var
  index: TIndexDef;
begin
  index := ClientDataSet1.IndexDefs.Find('LengthIndex');
  if ixDescending in index.Options then
    index.Options := index.Options - [ixDescending]
  else
    index.Options := index.Options + [ixDescending];
end;

Answer 1

TIndexDef.Options 在创建索引时使用。它们不能用于尝试影响现有索引。请参阅documentation (强调我的):

When creating a new index, use Options to specify the attributes of the index. Options can contain zero or more of the TIndexOption constants ixPrimary, ixUnique, ixDescending, ixCaseInsensitive, and ixExpression.

When inspecting the definitions of existing indexes, read Options to determine the option(s) used to create the index.

您需要创建一个单独的索引并设置ixDescending 值。然后，您只需更改 IndexName 属性即可来回切换。