DBGrid sortieren bei Titel-Klick

[joachimd]

Zitat von BackOrifice:

Aber mit der Möglichkeit, auf- und absteigend zu sortieren. Das hat dein Code nicht

Ich hab mir damals ne Funktion zum SQL-Query-String-Zusammenbasteln gebaut.

Kindereien

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  SQL: string;
begin
  SQL:='SELECT * FROM [mytable] ORDER BY ['+Column.Field.FieldName+']';
  if (oldcolumn=Column) then SQL:=SQL+' DESC';
  oldcolumn:=column;
  // ...
end;