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.