Grid über DataSet sortieren

[hirnstroem]

Wow, das sieht sehr vernünftig aus dieses Sort.

Vielen Dank

Grüsse
hirnstroem

[Edit]

So sieht die Sache nun aus:

Delphi-Quellcode:

procedure TIWUSerSession.SortBy(Sender: TADODataSet; const AFieldname: string);
begin
  if Sender.Sort = AFieldname + ' ASC' then
  begin
    Sender.Sort := AFieldname + ' DESC';
  end
  else if Sender.Sort = AFieldname + 'DESC' then
  begin
    Sender.Sort := AFieldname + ' ASC';
  end
  else
  begin
    Sender.Sort := AFieldname + ' ASC';
  end;
  Sender.Open;
end;

Kann für jedes DataSet wiederverwendet werden und sortiert sortierte Daten immer anderst herum oder unsortiertes aufsteigend und danach abwechselnd bei jedem Klick.