Здравствуйте!
У меня такая ситуация. Делаю пошаговую отработку пакета и в том месте где идет обращение к объекту (ТSelect) другого пакета у меня выходит сообщение EAccessViolation и выполнение прерывается. (TSelect в глобальном пакете объявлен как класс, наследующий свойства компонента TOraQuery).
class TSelect :public TOraQuery
{
public:
TOraQuery *q;
int FRecNo;
bool PEof(void);
bool PNotEof(void);
TField *GetField(int Index);
public:
TSelect();
~TSelect();
bool Set(String sql);
bool Next(void);
TField *FieldByName(String Index);
__property bool Eof = {read = PEof };
__property bool NotEof = {read = PNotEof };
__property TField *Field[int Index] = {read = GetField };
__property int RecNo = {read = FRecNo };
};
Обращение к нему происходит
TSelect *sel = sel;
int top = 0;
int btnWidth = BtnParent->Width - 2*cBtnInterval - 40;
if ( sel->Set(Sql) ) - на этой строке происходит прерывание.
Подскажите, пожалуйста, в чем здесь ошибка и как ее можно исправить.