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