Hier sind noch zwei Alternativen:
1. Streiche in deinem Quelltext "
DB.Active := True" und ersetze es durch "
DB.Open". Diese Anweisung erfolgt aber erst eine Zeile später.
2. Verwende zum Sortieren jedesmal ein vollständig neues
SQL-Statement, in dem du die gewünschte Spalte an die erste Stelle setzt. Der Aufwand ist zwar größer (schau dir mal z.B. die Methoden IndexOf, Delete und Insert von TStrings an), aber bei geschickter Notation (z.B. jeder gewünschte Feldname in einer eigenen Zeile) hält sich der Aufwand in Grenzen! Allerdings mußt du bei dieser Methode jedes Feld, das du anzeigen möchtest, statt des Allquantors in deinem
SQL-Statement einsetzen.
Grüße
Mikhal