Hallo,
habe gestern noch lange gelesen und gebastelt mit dem Ergennis:
Delphi-Quellcode:
procedure TForm1.GridTitleClick(Column: TColumn);
var
sName : String;
I : integer;
begin
sName := Column.Field.FieldName; // Feldname
// vorhandenen Index suchen
Table.Active := False;
Table.Exclusive := True;
Table.IndexDefs.Update;
//------------------- 1) Index für dieses Feld vorhanden
for I := 0 to Table.IndexDefs.Count -1 do // vorhandenen Index suchen
if Table.IndexDefs.Items[I].Fields = sName then
begin
Table.IndexName := sName; //vorhandener Index einsetzen;
Table.Exclusive := False;
Table.Open;
Label1.Caption:= '';
Label2.Caption:= '';
Label1.Caption := 'Index vorhanden';
end
//------------------- 2) Index nicht vorhanden
else //
begin
Label1.Caption:= '';
Label2.Caption:= '';
Label1.Caption:='Index nicht vorhanden';
Label2.Caption:='Index erstellen';
// Table.AddIndex(sName, sName,[]); // <--
// Table.IndexName := sName; // <--
Table.Exclusive := False;
Table.Open;
end;
end;
end.
Das funktioniert aber nur teilweise, ich weiß nicht weiter!
Da steckt noch ein Fehler drin, den ich aber nicht sehen kann.
1. Ist in der Tabelle ein Index vorhanden, so dürfen die Zeilen <-- nicht aktiv sein
2. Ist in der Tabelle kein Index vorhanden und die Zeilen <-- sind aktiv, so wird ein Index erstellt, eingesetzt.
Die Label sind nur zur Kontrolle. If else end wird ignoriert, auch wenn Index vorhanden geht es immer in Teil 2) da muß wohl der Fehler sein!!??
Fritz