vorhandenen Index ermitteln

[raiguen]

Zitat von Fritz01:

...Sehe ich das richtig? ....

Nein, da hast du einen Verständnisfehler: zuerst wird die Schleife durchlaufen, danach werden die Einträge in der ListBox (oder StringList) mit einem Schlag gelöscht.

Zitat von Fritz01:

...Ansonsten läuft das Teil super und völlig fehlerfrei. ...

und wie ist das mit dem nicht gefundenen Index für PLZ? (siehe #24)
Das hier if Table.IndexDefs.Items[I].Fields = sName 'ermittelt' den ersten Index, in dem das Feld sName vorhanden ist (in deinem Beispiel wäre das PLZ_idx) und somit ist die Bedingung wahr. Allerdings versuchst du dann die Tabelle auf den Index mit dem Feldnamen zu indizieren...und das kann ja nicht funktionieren
Aber so:

Delphi-Quellcode:

procedure TForm1.GridTitleClick(Column: TColumn);
{...vorhandener Code}
   if bVorhanden then
   begin
     Table.IndexName := Table.IndexDefs.Items[I].Name; 
   end
{...}
end;

Was bewirkt das? ein Index mit dem Feld PLZ wurde gefunden und dessen Name (hier PLZ_idx) wird nun verwendet, um die Tabelle hierauf zu indizieren..