No me funciona el código de ordenar campos por titulo
 

Hola, estoy migrando un programa que tenia programado en delphi7 con BD Access a MySql.

Los dBgrid podia ordenarlos ascendente o descendentemente cuando pinchaba en el título de la columna con el siguiente código:

Código Delphi [-]
procedure TFGestion.DBGrid4TitleClick(Column: TColumn);
{$J+}
 const PreviousColumnIndex : integer = -1;
{$J-}
begin
  if DBGrid4.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid4.DataSource.DataSet) do
  begin
    try
      DBGrid4.Columns[PreviousColumnIndex].title.Font.Style :=
      DBGrid4.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
    except
    end;
    Column.title.Font.Style :=
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;
    if (Pos(Column.Field.FieldName, Sort) = 1)
    and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;

Pues ahora que estoy empezando a usar componentes Nativos a MySql (Zeos), no me ordena el dbgrid.Pincho en cualquier título y no me hace nada.

¿He de cambiar algo en este código para que funcione con los Zeos?.

Gracias.Un Saludo.

Buenas compañero.

Pues sí, cambia un poquito al no manejar componentes tipo

Código Delphi [-]
TCustomADODataSet

Lo que tienes que hacer es cerrar el dataset y añadir en la propiedad SQL el mandato y posteriormente abrir el dataset. :(

Un saludo.