Hallo zusammen,
ich arbeite gerade in einem alten Projekt und habe das Problem, dass die Sortierfunktion nicht mehr richtig arbeitet. Um die Frage im Keim zu ersticken, warum ich mit dieser Komponente und nicht mit einer anderen arbeite, werde ich dieses ALTE Projekt nicht auf andere
DB-Komponenten komplett umschreiben.
Deshalb hier die Bitte um Hilfe. Ich sortiere folgendermaßen:
Delphi-Quellcode:
procedure TfmPhoto.GridTitleClick(Column: TColumn);
var i : integer;
begin
TB1.DisableControls;
TB1.SortedBy.Clear;
TB1.SortedBy.Add(Column.FieldName);
TB1.Sort;
TB1.EnableControls;
for i := 0 to Grid.Columns.Count - 1 do
Grid.Columns.Items[i].Color := clWhite;
Column.Color := clSilver;
end;
Mit diesem Code wird die Sortierung auf die nächste Spalte gesetzt. Sprich ich wähle die erste Spalte aus, wird nach der zweiten Spalte sortiert. "TB1" ist eine TKADAOTable.
An dieser Routine selbst habe ich die ganze Zeit keine Änderung gemacht.
Bitte um Hilfe. Gruß, Moony