DBGrid sortieren bei Titel-Klick

[DeddyH]

Bisschen kürzer:

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const Orders: array[Boolean] of string = ('',' DESC');
var
  SQL: string;
begin
  SQL:=Format('SELECT * FROM [mytable] ORDER BY [%s]%s',[Column.Field.FieldName,Orders[oldcolumn=Column]]);
  oldcolumn:=column;
  // ...
end;

Wobei ein "Umschalten" so wohl auch nicht ginge, da müsste man sich den alten Zustand merken.