DB Grid spalten sortieren

[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;