IndexDef en ADODataSet

[ecfisa]

Hola Jere_84.

Te hice un ejemplo que permite ordenar por todos los campos del TADODataSet de forma ascendente o descendente, tal vez te sirva de guía:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ADODataSet1.Open;
  with ComboBox1 do
  begin
    Clear;
    for i:= 0 to ADODataSet1.FieldCount-1 do
      Items.Add(ADODataSet1.Fields[i].FieldName);
    ItemIndex:= 0;
  end;
  with RadioGroup1 do
  begin
    Items.Clear;
    Items.Add('Ascendente');
    Items.Add('Descendente');
    ItemIndex:= 0;
  end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
const
  ASCDESC: array[Boolean] of string=('ASC','DESC');
begin
  with ComboBox1 do
    ADODataSet1.Sort:= Format('[%s] %s',[Items[ItemIndex],
      ASCDESC[Boolean(RadioGroup1.ItemIndex)]]);
end;

Saludos