DB Grid spalten sortieren

[Jack23]

Keine schlechte Idee. Nur ich habe keine Ahnung wie ich das anfangen soll.

[mkinzler]

TForm5:

Delphi-Quellcode:

...
  private  
    sSortColumn, sOldSortColumn: String;
    sSortOrder: string;
    sAbfrage: String;
...
procedure TForm5.DBGrid1TitleClick(Column: TColumn);
begin
    sSortColumn := DBGrid1.Columns.Items[Column.Index].FieldName;   
    if sSortColumn = sOldSortColumn then 
    begin
        if sSortOrder =' DESC ' then sSortOrder = ' ASC ' else sSortOrder =' DESC '; 
    end
    else
        sSortOrder = ' ASC ';

    sOldSortColumn = sSortColumn;

    ADOQuery1.Close;

    ADOQuery1.SQL.Text:= sAbfrage + '  ORDER BY ' + sSortColumn+sSortOrder;
    ADOQuery1.Open;
end;

[Jack23]

Ok. Ich habe mir jetzt ein wenig Zeit gelassen.

Wie definiere ich sAbfrage? Oder besser gesagt Wo?

[mkinzler]

Das ist die Abfrage, welche du durch die Buttons setzt.

[Jack23]

Ah ok. Mit der Zeile stimmt etwas nicht:

if sSortOrder =' DESC ' then sSortOrder = ' ASC ' else sSortOrder =' DESC ';

Es gibt die Meldung:

':=' erwartet, aber '=' gefunden

Und die Variable Definieren muss ich so oder?

sAbfrage=('SELECT * FROM abc WHERE test like "we%"');

[mkinzler]

if sSortOrder =' DESC ' then sSortOrder := ' ASC ' else sSortOrder := ' DESC ';

[Jack23]

Es wird gar keine Abfrage mehr gemacht. Habe ich irgend etwas vergessen?

edit: klappt jetzt alles. hatte nur etwas an der abfrage falsch. Danke für deine viele Mühe!