Ordenar DBGrid por coluna

[João Paulo Taraciuk 0]

Olá colegas do fórum, estou procurando uma função para poder ordenar o DBGrid por ordem crescente ou decrescente, enconteri este código na internet, mas em algus dbgrid's ele não funciona

//Código esse colocado no OnTitleClick do DBGrid

if Indicce <> Column.Index then

Ordem := ''

else

if Length(Ordem) > 0 then

Ordem := ''

else

Ordem := 'ASC';

With ZQuery_relatcheque do

begin

close;

SQL[SQL.Count - 1] := 'ORDER BY ' + Column.FieldName + ' ' + Ordem;

Open;

end;

Indicce := Column.Index;

Se algúem tiver uma dica, eu agradeço!!

[João Paulo Taraciuk 0]

Já resolvi aqui, só não sei se não vai parar ná área de POGs do fórum :rolleyes: hehe

assim, no OnTitle Click do DBGrid coloquei este código:

if (ZQuery_relatcheque.SortedFields<>column.FieldName+' ASC') then 
   begin
   ZQuery_relatcheque.SortedFields:=column.FieldName+' ASC';
   ZQuery_relatcheque.First;
  end
  else 
  begin
	 ZQuery_relatcheque.SortedFields:=column.fieldname+' DESC';
	 ZQuery_relatcheque.First;
  end;

Agora gostaria de saber o parecer dos colegas, se posso utilizar este código tranquilamente

Abraço!!!