Primärschlüssel per BDE bestimmen

[Foo316]

Hallo,
ich bestimme mit der unteren Funktion den Primärschlüssel von Tabellen in einer Firebird-Datenbank.

Delphi-Quellcode:

procedure GetPrimaryKey();
begin
   Check(DbiOpenIndexList(FDatabase.Handle,PChar(TableName),nil,hCur));
   try
      while (DbiGetNextRecord(hCur,dbiNoLock,@idx,nil) = DBIERR_NONE) do begin
         if idx.bPrimary then begin
            // mache was mit dem Primärindex
         end;
      end;
   finally
      Check( DbiCloseCursor(hCur) );
   end;
end;

Es funktioniert auch grundsätzlich aber nicht bei allen Tabellen.
Hat jemand einen Tipp woran es liegen könnte?

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen. Danke Mfg, alcaeus[/edit]

[Foo316]

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen. Danke Mfg, alcaeus[/edit][/quote]

Sorry und Danke.

hab selbst was rausgefunden.
Sieht nach einem BDE-Problem aus

Scheinbar liegt es daran, das die BDE die Primärschlüssel daran erkennt, dass der Indexname, den der Primärschlüssel nutzt (nicht der Name des Primärschlüssel), mit RDB$PRIMARY... beginnt.
Dieser ist in der Systemtabelle RDB$RELATION_CONSTRAINTS in der Spalte RDB$INDEX_NAME zu finden.

Bei den Tabellen zu den ich keinen Primärschlüssel bekomme, ist nämlich der Indexname gleich dem Primärschlüsselnamen!

Schade. Muß ich wohl die Systemtabellen bemühen, um den Primärschlüssel zu bestimmen.