DBGrid Spalten sortieren mit ABSQuery ?

[raiguen]

Moin
Nun, für den 'einfachen' Fall einer Sortierung, sprich: es wird nur nach einer Spalte bzw Feld sortiert, kannst du es bspw. so machen (in Anlehnung des 1.Beitrags aus dem hier ) :

Delphi-Quellcode:

var
  bSortOrder: Boolean;
  sSortColumn: string;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if Column.FieldName <> sSortColumn then
  begin
    sSortColumn := Column.FieldName;
  end
  else
  begin
    bSortOrder := not bSortOrder;
  end;
  ABSQuery1.Close;
  if bSortOrder then
  begin
    ABSQuery1.SQL.Text := 'SELECT * FROM Table ORDER BY ' + sSortColumn;
  end
  else
  begin
    ABSQuery1.SQL.Text := 'SELECT * FROM Table ORDER BY ' + sSortColumn + ' DESC';
  end;
  ABSQuery1.Open;
end;