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.