Index und feld ermitteln

[Roland Jordan]

Ich möchte aus einer bestehenden Tabelle alle Indizes mit
den indizierten Feldern ermitteln(lesen).
Wer kann mir helfen?
Vielen Dank im Voraus!
Roland

[Andreas Kosch]

Hallo,

welche Datenbank und welche VCL-Zugriffskomponente wird verwendet

[Roland Jordan]

Hallo,
es wird Paradox-Datenbank verwendet und normal über TTable bzw. TQuery angesteuert.Delphi Version 5
Rolan

[Andreas Kosch]

Hallo,

die TTable-Komponente stellt dazu die Eigenschaften <b>IndexFieldNames</b> und <b>IndexName</b> zur Verfügung

[Andreas Kosch]

Hallo,

das folgende Beispiel für TTable stammt aus der Delphi-Hilfe:
<pre>
Table1.Active := False;

Table1.Exclusive := True;

{ Get the current available indices }

Table1.IndexDefs.Update;
{ Find one which combines Customer Number ('CustNo') and Order Number ('OrderNo') }
for I := 0 to Table1.IndexDefs.Count - 1 do
if Table1.IndexDefs.Items[I].Fields = 'CustNo;OrderNo' then
{ set that index as the current index for the table }
Table1.IndexName := Table1.IndexDefs.Items[I].Name;
Table1.Exclusive := False;

Table1.Active := True;
</pre&gt