vorhandenen Index ermitteln

[Fritz01]

@ raiguen,
danke für Deine Antwort und die Bemühungen.
Werde mir Deine Vorschläge heute ansehen, war aber auch schon selbst tätig.
Bin ja nur hobbymäßig mit Delphi beschäftigt und kann so nur folgendes vermuten:

Delphi-Quellcode:

Table.IndexDefs.Items[I].Name = sName then 

Table.IndexDefs.Items[I].Fields = sName then

.Name verweist auf den Namen der Indexdatei .Fields verweist auf die indizierten Felder

1) .Fields, ist das angeclickte Feld bereits indiziert wird wohl nach dem Namen gesucht (sName), es erscheint dann, weil nicht vorhanden, die Fehlermeldung: kann Index nicht finden.

2) .Name , ist wohl der Name der IndexDatei. Üblicher Weise wird der Name mit dem Zusatz IDX o.ä. gewählt.
Die Var "sName" ist ja nur der Feldname ohne IDX, Feldname = Index Name ist demnach als IndexName nicht vorhanden.
Die IndexDatei wird also neu erstellt.

Delphi-Quellcode:

// vorhandenen Index suchen
  Table.IndexDefs.Update;
  for I := 0 to Table.IndexDefs.Count  -1 do // vorhandenen Index suchen

   if Table.IndexDefs.Items[I].Name = sName then  // .Name war vorher .Fields
   begin
     bVorhanden := True;
     break;  //-- durchaus erlaubt, weil Forstezung der Suche ja nicht mehr sinnvoll
   end;

Habe nun entsprechend geändert, und soweit ich das bisher getestet habe ist es OK.
Das dazu.
StringList statt ListBox wurde ja auch genannt. Habe etwas in der DH gelesen und es ist bereits in meiner Anwendung integriert.
Der Artikel war scheinbar interessant, er wurde ja sehr oft angeclickt, und ich habe viel dazu gelernt. Dank nochmal an die vielen Helfer und Euch allen ein schönes Wochenende
Fritz