"Table is read only"

[DelphiAndreas]

nach einigem ausprobieren habe ich herausgefunden, dass der Fehler genau bei der mit dem Pfeil gekennzeichneten "AddIndex"-Anweisung auftritt.

Delphi-Quellcode:

try
                newTable1.Active := true;
        except
                on EDBEngineerror do
                begin

                        newTable1.Exclusive := true;
                        Check(DbiRegisterCallBack(nil, cbINPUTREQ, LongInt(0),
                                sizeof(CBInputDesc), @cbinfo, @myfunc));

           --->>>       newTable1.AddIndex('MEBO_NR', 'MEBO_NR', []);

                        Check(DbiRegisterCallBack(nil, cbINPUTREQ, 0,
                                sizeof(CBInputDesc), nil , nil));

                        newTable1.Exclusive := false;
                end;
        end;

Danke,
Gruß
Andreas