@hoika,
danke für die Antwort. Der Link hat mir nicht wirklich weiter geholfen.
Beim bisherigen Code gibts ja noch nicht viel zu sehen.
Delphi-Quellcode:
procedure TForm1.GridTitleClick(Column: TColumn);
var
sName : String;
begin
sName := Column.Field.FieldName; // GridTitleName
Label1.Caption := sName;
// vorhandenen Index suchen
// if {index für das Feld vorhanden} then
// begin
// Label1.Caption := 'Index vorhanden';
// Table.IndexFieldNames := //vorhandener Index;
// end
// else {Index nicht vorhanden} then
// begin
// Index erstellen
Table.AddIndex(sName, sName, []);
Table.IndexFieldNames := sName;
// end;
// hier alle neu erstellten indexe löschen
end;
das funktioniert, solange keine Indexe vorhanden sind. Dann kommt das Problem!
Sollte ich eine kl. Demo anhängen?
Fritz