Delphi 取消与设置CDS本地排序

取消与设置CDS本地排序

   取消CDS本地排序.
cds.IndexDefs.Update;
    if cds.IndexName<>'' then
    begin
      if cds.IndexDefs.IndexOf('index1')>=0 then cds.DeleteIndex('index1');
      cds.IndexDefs.Clear;
      cds.IndexName:='';
    end;
设置CDS本地排序
  cds.IndexDefs.Update;
    cds..AddIndex('index1','sum_num',[ixDescending]);
    cds.IndexName:='index2';
    cds.First;