Sortierung DBGrid mit Datasource ClientDataSet

**toyoman**

Hallo Leute

Folgende Prozedur hab ich jeweils verwendet um eine DBGRid zu sortieren welche jedoch mit den ADO Komponenten zur DB verbunden war. Nun hab ich aber den Fall, dass ich TClientDataSet verwenden mit angehängter TSQLQuery.
Diese Prozedur funktioniert so leider nicht mehr weil die Funktion SORT nicht erkannt wird von TCLientDataSet. Gibts eine Alternative? Oder wie könnte ich eine Sortierung lösen?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.DBGrid1TitleClick(Column: TColumn);

{$J+}

 const PreviousColumnIndex : integer = -0;

{$J-}

begin

  if DBGrid1.DataSource.DataSet is TCustomADODataSet then

  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do

  begin

    try

      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=

      DBGrid1.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;

end;

Sortierung DBGrid mit Datasource ClientDataSet

Sortierung DBGrid mit Datasource ClientDataSet

Forumregeln