Indexfehler ??

[raiguen]

Jo, wir helfen doch gerne, vor allem dann, wenn der Hilfesuchende auch aktiv an der Lösung seines Problems mitarbeitet
Bezüglich deiner IndexLösch-Prozedure darf ich zum Anschluss noch eine Änderung anbringen (ich weiss, ich bin penetrant-nervig )

Delphi-Quellcode:

procedure TfrmMain.IndexDelete(sIndexList: Tstringlist);
var
  cnt : integer;
begin
  with tTable do
    IndexName := '';
    {IndexName setzen reicht aus, da IndexName und IndexFieldName sich gegenseitig ausschliessen
    IndexFieldNames := '';}

    //** diese Minimalschleife ist ausreichend, alle temp. erstellten Indizes zu löschen
    for cnt := sIndexList.Count -1 downto 0 do   //sIndexList
      DeleteIndex(sIndexList[cnt]);         // index aus table  (sIndexList[cnt])
   ***//
    {in einer Schleife nicht sinnvoll, da JEDESMAL die Indizes neu ausgelesen werden,
     aber zum Schluss auf jeden Fall}
    IndexDefs.Update;               // indexdefinition aktualisieren
    //--evtl. ist das hier auch möglich, da für die aktuelle Tabelle ja nicht mehr benötigt wird
    //-- und die Indizes für die neue Tabelle ja neu eingelesen werden
    IndexDefs.Clear {bin mir z.Zt. nicht ganz sicher, ob diese MEthode vorhanden ist}  
    StoreDefs := False;       //speichern der definitionen verhindern
  end;
  sIndexList.Clear;
end;

Ansonsten weiterhin viel Erfolg und einen schönen Rest-(1.Advents)Abend