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]