So ich hab jetzt mal den Workaround probiert. Allerdings stelle ich mir jetzt noch die Frage was da genau passiert.
Delphi-Quellcode:
ADODataSet1.CommandText := 'SELECT * From Kunde';
ADODataSet1.Active := True;
if ADODataSet1.IndexName <> '' then
begin
ADODataSet1.IndexDefs.Update;
IndexDef := ADODataSet1.IndexDefs.Find(ADODataSet1.IndexName);
if IndexDef <> nil then
FList := IndexDef.Fields else
FList := '';
end;
ShowMessage(FList);
Er springt gar nich in die if-Schleife rein. Allerdings kann ich auch nicht so ganz nachvollziehen was IndexName eigentlich ist. Wie muss ich das jetzt noch anpassen, dass mir auch der Primärschlüssel ausgegeben wird?
Gruß