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