Sekundärindizes einer Tabelle herausfinden

[Cuchulainn]

So kann man die Sekundärindizes einer Paradoxtabelle herausfinden.

Delphi-Quellcode:

// slSIndizes ist eine Stringliste, in der ich Name und Felder der Sekundärindizes speichere.
TblTabelle.IndexDefs.Update; // Aktualisiert die Indexdefinitionen
for IntZaehler := 0 to TblTabelle.IndexDefs.Count - 1 do
begin
  if not (ixPrimary in TblTabelle.IndexDefs.Items[IntZaehler].Options) then // Der Primärindex soll nicht in die Stringliste
  begin
    slSIndizes.Add(TblTabelle.IndexDefs.Items[IntZaehler].Name + #9);
    slSIndizes[IntSekZaehler] := slSIndizes[IntSekZaehler] +   TblTabelle.IndexDefs.Items[IntZaehler].Fields;
    inc(IntSekZaehler);
  end;
end;

[edit=Matze][code] durch [delphi]-Tags ersetzt und Code korrekt formatiert. Mfg, Matze[/edit]