Ordenar crescente decrescente automaticamente

Question

PessoalComo fa�o para ordenar crescente ou decrescente automaticamente qdo pressiono em um dos campos na grid. Gostaria de saber se tem alguma forma a menos que tem que fazer manualmenteUtilizo compon...

Lu�as · Answer

Depois de ter carregado os dados no Clientdataset, vc pode ordenar os dados em memoria. No seu caso, vc cria dois indices para o campo que deseja ordenar, sendo que um desses indices ser� ascendente, e o outro descendente.

Depois, no envento OnTitleClick, vc coloca:

if ClientDataSet1.IndexFieldNames = IndexAscend then
begin
ClientDataSet1.IndexFieldNames = IndexDescend;
end
else ClientDataSet1.IndexFieldNames = IndexAscend;

Acho que assim pode d� certo. Tenta a�.

At� +
:wink:

Marco Salles · Answer

� muito f�cil criar indices em mem�ria em clienteDataset.

Para isso, basta setar a propriedade IndexFieldNames (para criar �ndices mais personalizados use a propriedade IndexDefs e IndexName). N�o � necess�rio criar arquivos de �ndices como no Paradox ou refazer a consulta SQL no banco.

Exemplo de ordena��o clicando na Grid...

var
OLDColumn:TColumn;

procedure TFrmMain.DBGrid1TitleClick(Column: TColumn);
begin
  if Assigned(OldColumn) then
    OldColumn.Title.Color := DBGrid1.FixedColor;
  ClientDataSet1.IndexFieldNames := Column.FieldName;
  Column.Title.Color := $00408080;
  OldColumn := Column; 
end;

F�rum Ordenar crescente decrescente automaticamente #324929