Ich habe zwar kein Plan von dem Grid was du da benutzt, aber hat dieses DBISAMDBGrid nicht auch eine DataSource?
Könnte man dort nicht auch mit "Sort" arbeiten?
Nach dem Motto (oder so ähnlich):
Code:
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
kann natürlich sein, dass das nur bei den normalen DBGrids funktioniert!
